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Hvis  du  mener,  du  har  et  rig¬ 
tigt  godt  program  til  *  *  Soft 
Special11,  send  da  kassette¬ 
bånd,  disc  og  gerne  listning 
tU  redaktionen.  AUe  i  blade 
eller  på  anden  måde  offent¬ 
liggjorte  programmer  præ¬ 
mieres  med  op  tE  1000  kro¬ 
ner* 

Alle  indsendte  programmer 
mærkes  med  navn,  adresse 
og  computertype. 

Afsender  garanterer  at  pro¬ 
grammet  er  originalt« 
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Hvordan  laver  jeg  mit  eget  spil,  er 
et  af  de  spørgsmål,  vi  oftest  får 
stillet  her  på  redaktionen. 

Mange  nybagte  computerejere 
har  nemlig  måttet  sande,  at  ned¬ 
skydning  af  flyvende  tallerkener 
og  spøgelsesfortærende  oste 
kræver  en  hel  del  viden  om,  hvor¬ 
dan  skærmen  fungerer,  hvordan 
joysticket  styres  osv.  ’  ’  SOFT 
Special’ 5  har  bedt  en  virkelig  eks¬ 
pert  på  området  give  gode  råd  til 
spilkonstruktører.  Det  er  forfatte¬ 
ren  Erwin  Neutsky-Wulff ,  som  er 
kendt  for  sine  bøger  til  Sinclair, 
Commodore  og  Texas. 


Et  par  måneder  i  selskab  med 
din  nye  computer  bringer  dig 
helt  sikkert  et  stort  skridt  vide¬ 
re  i  spørgsmålet.  Du  får  flere 
erfaringer,  lærer  maskinens 
særkender  og  du  finder  snart 
ud  af,  hvordan  en  lysende 
prik  på  skærmen  kan  for¬ 
vandles  til  et  skrækindjagen¬ 
de  uhyre. 

I  denne  artikel  vil  jeg  give  dig 
en  række  tips  til  opbygning 
af  spilprogrammer.  Vi  viser  i 
starten  en  række  simple  spil 
der  kun  bruger  skærmen  til 
tekst.  De  har  den  fordel  at  de 
næsten  uden  ændringer  kan 
køre  på  forskellige  computer¬ 
typer. 

Jeg  har  lavet  programmerne 
på  en  Commodore  64  og  en 
V1C-20.  Har  du  en  Texas  TI-99/ 
4A,  vil  den  ikke  kunne  lage 
'  flere  sætninger"  i  en  linie, 
som  i  vores  listning  er  adskilt 
ved  kolon.  På  en  Spectrum 
og  en  ZX-8 1  vil  ordren  RND(  1 ) 
slet  og  ret  hedde  RND. 


På  andre  maskiner  vil  der 
være  tilsvarende  små  afvi¬ 
gelser,  men  alle,  der  kender 
lidt  til  sin  computer,  kender 
sikkert  til  disse  særpræg .  Det 
er  først,  når  vi  går  over  til  de 
store  skærmprogrammer,  at 
oversættelser  bliver  meget, 
meget  svære.  Men,  alligevel 
vi  tager  nogle  enkle  skærm¬ 
spil  med  undervejs  i  artiklen. 

Små  gaver 
fra  computeren 

En  gave  fra  oven  til  spillema¬ 
geren  er  RND(  1)  Skriver  vi 
PRINT  RND(l),  får  vi  som  be¬ 
kendt  et  tal  mellem  0  og  1 
med  en  masse  decimaler.  I 
Spectrum  skrives  RND*  1 . 
Mere  brugbart  bliver  det  med 
INT,  hvor  f.eks.  PRINT  INT(RND 
(1)*6)+ 1  tilfredsstillende  simu¬ 
lerer  en  terning.  Vi  kan  nu 
prøve  at  gætte  maskinens  tal 
eller  eventuelt  spille  terning 
mod  den. 

Et  rouletteprogram  kan  tildele 
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gevinst,  når  vores  tal  kommer 
ud,  og  vi  kan  prøve  at  spræn¬ 
ge  en  bank.  Eiler  vi  kan 
handie  med  aktier,  hvis  kur¬ 


ser  stiger  og  talder. 


Et  er  imidlertid  at  Id  ideen  til  et 
sådant  spil,  noget  andet  rent 
taktisk  al  fremstille  det.  Ne¬ 
denstående  indeholder  de 
almindeligste  komponenter. 
Ved  at  analysere  det  skulle  vi 
få  en  anelse  om,  hvordan  så¬ 
dan  noget  fungerer, 


1  A~i m  B=6:C-6;PSiUT: PRINT  "BlLLV  THE  KID  HA R-:  PRINT  " UDFORDRE T  DIG  TIL  DUEL" 

2  fi-R’t  ■  IF  fl=e  THEN  PRINT  11 1  ELEV  GODE  VENNER"  END 

3  PRINT:  PR  I  NT"  AFSTAND"  A  "METER M  PRINT  ''DU  HflR"  3  "SKUE  TILBAGE'1  IF  B=0  THEN  7 

4  INPUT  “VIL  DU  SKVDE  IF  THEN  7 

5  BE3-1  :FRIMT"ØU  SK@D  "MF  RND  THEN  PRIOT-QG  PANTE" :  PR  I  NT  "DU  ER  EN  HE 

LT"  rEHD 

6  PRINT  ''FORBI1' 

7  IF  RNDUKA/100  OR  C=ø  THEN  PRINT  "THE  KID  VENTER  ROLIGT'1 : GOTO  2 

0  0=01  ’ PRINT "BILLV  SKOD  %  :  IF  RNDUXA/100  THEN  PRINT  "FORD I"  GOTO  2 
S  PRINT  F,00  RAN  TE":  PR  I  NT  HDU  ER  TEMMELIG  DøD" 

REAEV, 


Som  man  vil  se,  er  der  tre  va¬ 
riabler  ud  over  A$,  der  blot 
tager  imod  indtastning,  A  er 
afstanden  mellem  duellan¬ 
terne,  B  antallet  af  patroner  i 
din  revolver,  og  C  antallet  i 
modstanderens.  Linje  1  giver 
disse  variabler  deres  oprinde¬ 
lige  værdi  og  præsenterer 
spilleren  for  spillet, 

I  linje  2  starter  spillet  med  at 
formindske  afstanden  med  1 . 
Duellanterne  nærmer  sig  hin¬ 
anden  og  venter  på,  at  en  af 
parterne  skal  trække.  Hvis  af¬ 
standen  bliver  O  uden  noget 
dødsfald,  må  man  gå  ud  fra 
en  fredsslutning.  Denne  situa¬ 
tion  kan  undertiden  opstå, 
når  begge  har  tømt  deres  re¬ 
volver  uden  at  ramme  mod¬ 
standeren. 

I  linje  3  får  vi  situationen  på 
skærmen.  Vi  får  afstanden  at 
vide  i  meter,  og  hvor  mange 
skud  vi  har  tilbage.  Modstan¬ 
derens  patronbeholdning  må 
vi  selvfølgelig  selv  holde 
regnskab  med.  Hvis  B=0, 
kan  vi  af  gode  grunde  ikke 
skyde,  og  den  følgende  del 
af  programmet,  linje  4,  5  og  6 
er  overflødige  og  springes 
over. 

I  modsat  fald  bliver  vi  spurgt, 
om  vi  har  lyst  til  at  vove  et 
skud  på  den  opgivne  af¬ 
stand.  Hvis  ikke,  springer  vi  li¬ 
geledes  videre.  Hvis  ja,  mister 
vi  en  patron  (B=B- 1 )  og  får  at 
vide,  at  vi  har  skudt. 

Herefter  har  vi  det  kryptiske 
' 'IF  RND( I)>  A/100  THEN  PRIN 
,  .  Som  vi  ved,  er  dette  tal 
mellem  0  og  1. 

Nu  stilles 
betingelserne 

Lad  os  nu  forestille  os,  at  af¬ 


standen  er  50  meter.  Vi  får 
nu,  at  vores  tilfældige  rand- 
omtal  skal  være  større  end 
50/100,  altså  større  end  0.5. 

Det  vil  det  være  i  cirka  halv¬ 
delen  at  tilfældene  (der  er  li¬ 
ge  mange  muligheder  over 
og  under),  og  vores  chancer 
for  at  ramme  er  altså  fifty-fifty , 

La  os  imidlertid  sige,  at  af¬ 
standen  er  90.  Nu  skal  det  til¬ 
fældige  tal  være  over  0.9, 
hvad  det  givetvis  kun  er  i  10% 
af  tilfældene.  Omvendt  kan 
vi  næsten  ikke  undgå  at  ram¬ 
me  på  afstand  10,  RND(l)skal 
så  blot  være  over  O  L 
Resultat:  Jo  større  afstand,  de¬ 
sto  mindre  chance  for  at  ram¬ 
me.  Eller  anderledes  udtrykt  - 
jo  længere  vi  venter,  desto 
større  chancer  har  vi  for  al 
ramme,  men  jo  større  chance 
er  der  selvfølgelig  også  tor,  at 
modstanderen  skyder  først  .  Et 
uhyre  primitivt,  men  dog 
"strategisk  '  spil  og  en  "  reali¬ 
stisk"  simulation. 

Hvis  betingelsen  i  5  ikke  er 
opfyldt,  ryger  vi  ned  i  6,  vi 
ramte  forbi.  Nu  er  det  Billys 
tur.  Han  ved  selvfølgelig  og¬ 
så,  at  han  skal  vente,  men  ik¬ 
ke  for  længe,  hvorfor  (som  du 
vil  kunne  regne  efter)  sand¬ 
synligheden  for,  at  han  sky¬ 
der,  er  tilsvarende  afhængig 
af  afstanden.  Er  han  ikke  til¬ 
freds  med  oddsene,  eller  (OR) 
der  simpelt  hen  ikke  er  flere 
patroner  i  hans  revolver, 
"venter  han  roligt", 

I  modsat  fald  skyder  han,  og 
sandsynligheden  for  al  ram¬ 
me  afhænger  igen  af  afstan¬ 
den.  Vi  kan  gøre  ham  til  en 
bedre  skytte  end  os  selv  ed  at 
udskifte  100  med  f.eks,  125,^^ 
men  i  vores  eksempel  er  vi  li-  r 
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ge  gode,  Skyder  Billy  forbi,  ry¬ 
ger  vi  tilbage  til  2  og  rykker 
endnu  en  meter  nærmere. 
Rammer  han,  nåja  ,  . , 


1  fw*u 

2  ff=INT (RND<  :  IF  THEN  2 

3  fif (fl)=STR$(B> r IF  fl<?  THEN  1 

4  PRINT  : PRINT  TOR  H-l  TO  9:PRI NT  ; ;  NEXT - C=C+1 : PRINT  PRINT ' PRI NT J' FORSØG 

,  ||  . 

5  INPUT"VEND";n:lF  fl<2  OR  THEM  PRINT :G0TQ5 

6  FOR  EM  TO  fl:B$<B>«-fl*CA“B+l)iNEKT;FOR  B=1  TO  fl  C B>  :NEKT 

T  FOR  A“1  TO  9  IF  VAL<A*<ft?X>A  THEN  4 

e  NEXT  PRINT: FOR  fl=l  TO  9  PRINT  flfCfl);  HEXT : PRINT 
9  NEXT- PR1NT: FOR  fl*i  TO  9- PRINT  NEXT PRINT 


REflBV, 


Vi  kan  til  en  begyndelse  køre 
det.  Vi  får  opgivet  en  talræk¬ 
ke,  lad  os  sige 

218596  7  43 

eller  tallene  1-9  i  vilkårlig 
rækkefølge.  Vores  opgave  er 
nu  at  sætte  dem  i  nummeror¬ 
den  i  så  få  forsøg  som  muligt. 
Pointen  er,  at  vi  kan  lå  vendt 
et  hvilket  som  helst  antal  cifre 
regnet  fra  venstre  pr.  om¬ 
gang.  På  maskinens  spørgs¬ 
mål  VEND?  kan  vi  således 
svare  5  og  få  den  ny  talræk¬ 
ke 

9  5  8  1  2  6  7  4  3 

Siger  vi  nu  i  næste  omgang  9, 
har  vi  i  hvertfald  fået  nitallet 


på  plads.  Det  hele  kan  udfø¬ 
res  ret  mekanisk,  men  der 
kan  også  skydes  genveje.  Et 
næste  træk  på  4  ville  måske 
ikke  være  så  dårligt?  Men 
hvor  lå  omgange  kan  vi  rent 
faktisk  komme  ned  på? 

Spil  af  denne  type  kan  der 
naturligvis  laves  et  ubegræn¬ 
set  antal  ak  Lad  os  se  lidt  på, 
hvordan  dette  her  virker 
De  lørste  3  linjer  har  at  gøre 
med  at  lave  den  tilfældige 
talrække.  Pointen  er,  at  hvert 
ciffer  lår  en  ekstra  værdi,  der 
bliver  til  1,  når  cifferet  er 
"brugt"  -  vi  skal  jo  ikke  have 
noget  ciffer  to  gange. 

4  printer  den  aktuelle  talræk¬ 
ke  ud  og  holder  regnskab 
med,  hvor  mange  forsøg  vi 
bruger  5  spørger,  hvor  man¬ 


ge,  og  6  udfører  selve  "ven¬ 
dingen",  7  checker  i  hver 
omgang,  om  opgaven  er 
løst,  mens  8  (som  en  særlig  til¬ 
fredsstillelse  for  os)  printer  den 
ordnede  talrække  ud. 

Dette  eksempel  er  lidt  van¬ 
skeligere  end  det  foregåen¬ 
de,  men  hvis  du  kigger  grun¬ 
digt  på  hver  linje,  er  det  til  at 
finde  ud  af  selv  for  begynde¬ 
ren.  Når  cifrene  laves  om  til 
strenge,  er  det  udelukkende, 
fordi  tal  har  en  tilbøjelighed  til 
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Mød  Billy  i 
en  labyrint 

Adventure-spil  er  underhol¬ 
dende  og  ikke  så  svære  at  la¬ 
ve.  Du  kunne  have  mødt  Bil¬ 
ly  the  Kid  (eller  en  hel  horde 
desperados)  i  en  labyrint 
(western-by).  I  sin  simpleste 
form  består  en  sådan  labyrint 
af  PRlNT-linjer,  der  beskriver 
de  enkelte  rum,  med  GOTO 
imellem.  På  den  anden  side 
kan  ganske  få  linjer  blive  til  et 
underholdende  spil.  Prøv 
f.eks. 


Kør  programmet,  og  du  bliver 
præsenteret  for  el  enkelt  cif¬ 
fer,  som  straks  efter  forsvinder. 
Hvad  var  tallet?  Klarer  du  det, 
bliver  tallet  tocifret,  og  såle¬ 
des  videre,  indtil  du  husker 
forkert,  hvorefter  spillet  slutter, 
og  du  får  et  pointsantal. 
PRINT  Jh"  betyder  simpelt 
hen,  at  skærmen  slettes  (på 
VIC  og  64),  En  Texas  vil  have 
C  ALL  CLEAR,  Sinclair  slet  og 
ret  CLS.n 

Erwin  Neutzsky-  Wiilff 


at  fylde  en  del  på  skærmen. 


1  A*=ft*+CHR$CINT<RNDU>*lø>+4B>:flsfl+l  : PRINT: PRINT  R$:R0R  B*I  TO  ft#  100: NEXT 

2  PRINT  "H":  INPUT  "TAL”;  Bf  IF  A$=Ff  THEN  1 

3  PRINT  PRINT  "NEJ*  "  Af  PRINT :  PRINT  H#l@ø  "POINTS1' 


Vigtigt  tip 

■  Vi  får  ofte  henvendelser  fra 
læsere,  der  ikke  kan  tyde  de 
inverse  tegn  på  C  ommod  o  re 
programmer, 

1  de  fleste  tilfælde  bruges  dis¬ 
se  tegn  udelukkende  til  at  lar¬ 
ve  teksten  eller  printe  den 


pænere  ud  på  skærmen.  De 
kan  derfor  ofte  undværes,  da 
de  ikke  betyder  noget  for  sel¬ 
ve  programmets  kørsel. 
Bemærk  dog,  at  tegnene  in¬ 
verse  hjerter  og  inverse  S  skal 
bruges  altid. □ 


/  næste  nummer  af  ’  ’Soft 1  *f  vil  samtlige  Commodore  64  ud- 
listninger  være  forsynet  med  informationer  i  stedet  for  et  in¬ 
verse  tegn . 


m  mm  cursor  ned" 

□  rm  cursor  op" 

3  aaa  cursor  hojre 

II  IIH  CURSOR  VENSTRE 
m  MB  CTRL  1 
M  ***  CTRL  Z 
SI  mm  CTRL  3 
k  kkk  CTRL  4 


m  mm  ctrl 

II  tm  CTRL 
3  ™  CTRL 


tf  Tf  tf 
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3  aaa  ctrl 


s 

6 

7 

8 
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■  i 
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J 
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UU  Jl 
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COMMODORE  3 
COMMODORE  4 

COMMODORE  S 
COMMODORE  G 
COMMODORE  7 
COMMODORE  S 
CLR  TASTEN 
HOME  TASTEN 
I  NST  TASTEN 


mi  f 


s 
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Her  på  "SOFT”  og  "  Alt  om 
Data"  sager  vi  hele  tiden  et¬ 
ter  nye  eg  spændende  pro¬ 
grammer  tU  alle  gængse 
computertyper,  Lige  fra  Sm å 
smarte  rutiner,  over  spil  til 
seriøse  brugerprogrammer. 
Alle  offentliggjorte  program¬ 
mer  belønnes  med  op  til 
1000  skattefri  kroner,  der  ud¬ 
betales  kort  etter  al  bladet  er 
udkommet. 

Indsend  dit/dine  program« 
mer  på  kassettebånd,  di¬ 
skette  eller  mikrodrive  og 
vedlæg  beskrivelse  og  gerne 
udUstnlng.  Programmer 
uden  medsendt  lagermedie 
kan  ikke  bearbejdes  af  re¬ 
daktion  og  får  derfor  ikke 
chance  tor  at  komme  i  bla¬ 
det. 

At  praktiske  grunde  beder  vi 
om,  at  du  vedlægger  en 
frankeret  returkuvert  med  ty¬ 
delig  adresseangivelse. 
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10  c  I  tf  A4<2  >.6*C2  VC«  2> 

2ø  J stjerne J 
30  GOS  UB  6TO 

4Q  F*ø  TP=ø  BZ= lø5øø  $K=3@  BORDER  F 
5ø  I HK  ø.ø  I HK  1,15  INK  2,9- INK  3.13 
6ø  ■"  SKAERMEN  SAETTES  OP 
70  1  )="  "+CHP«255  >+" 

Sø  A«2)=,r 


3ø  B« l )=■' 
100  B«2>=" 

nø  c*<  i  >*" 

120  CV£>-” 


''+CHR*<242  >+CHR*t243>+11 


1 '  +CHR «  2 1 3  )+C NR* <  2øø  > +CHR *C  2ø£  >+C  HP*<  2 1 2  >+  "  " 

"  +CHP«  2 1 4  )+CHR*i  2 1  ø  )+CHR«  2 1  8  >+CHP«  215  H  "  " 

130  LOCATE  1.1: PEN  1  ■ PRINT  STRING« 49,  127 >  LOCATE  1,20  PRINT  STRING*«' 40, 127 > 

140  FOR  N*2  TO  19 ^ LOCATE  1  >  N r PEN  1  PRINT  CHR*C 1 27 > : LOCATE  40, N= PRINT  CHR«127>  N 
EXT 

130  EVEPV  løg,ø  GO S UB  460: REM  BENZIN 
160  'HOVEDPROGRAM 

1 70  XX*  I NTC  33*RND  >+2  =  YX-INK  I6#PND  H3  =  F 1  *=A«  1  )  F2**A*<  2  > 

ISO  LOCATE  XX,YX  PEN  2  PRINT  Fl*  LOCATE  XX,  V5t- 1  ■  PRINT  F2*G0SUB  510 
130  TF  INKEY<47>-0  THEN  GOSUB  520 
200  GOSUB  26ø 
210  IF  INKEY(ø)i 


XX-1 , YX-2 : PRINT 
XX+6 *  YX  '  PRINT"  1 


LOCATE  K^/fHTh 


O  THEN  8*4  GOSUB  31 0- LOCATE 
22ø  IF  INKEY<1>=0  THEN  6=1=00306  28ø  LOCATE 
I  NT"  w  =  LOCATE  XX+6,  YX+1  i  PRINT"  N 

230  IF  INKEY<  2  >*@  THEN  B-3  =  00306  3øø :  LOCATE  XX- 1 ,  YX+1  i  PRINT  N 

240  IF  INKEYC  B  }=ø  THEN  B"2: GOSUB  29ø=LflCRTE  XX-I ,  YX  PRINT"  "  ■  LOCATE  XX- 1 , YX- 1  PP 
I  NT"  11 
250 
260 
27ø 
280 
230 
300 
310 
320 
030 
340 
35B 
366 


EPDPGOTO  130 
Jl BE V AEG  FJENDE 
B=INKRWD*SH1 

IF  B-l  THEN  XX=XX-1  I F  XX<3  THEN  XX=3  RETORN 

THEN  XX-HX+MF  XX  >33  THEN  XX=33 J  RETURN 
THEN  YX»YX-1  LOCATE  XX,  YX+1  PRINT  " 

THEN  YX*YX+ 1  : LOCATE  XX,YX-2  PRINT  " 


AND  F1*=R*< 1  >  THEN  Fl**8« 1  ) 
find  fi**8«i>  then  fi*=c*cd 
AND  Fl**C« I  >  THEN  F1*=B*<1  ) 
AND  Fl**B«l>  THEN  F1*™A*C1> 


YX<3  THEN  YX=3  RETURN 
YX>18  THEN  YX*18= RETURN 


F2i"B*f  2  > ; RETURN 
F2*=>C*<  2  >  -  RETURN 
F2**e*< 2 >  RETURN 
F2*=«A*<  2  > :  RETURN 


IF  0*2 
IF  0*3 
TF  E*4 
IF  3*5 
IF  8=5 
IF  B=6 
IF  8=6 
RETURN 
37ø  STOP 
38ø  'EKSPLOSION 
330  ENV  1,13,-1,10 
400  SOUND  2.0,130,0,1,0.15 

4tø  LOCATE  XX+3, YX  =  PEN  1= PR TNT  CHR*< 238 > ; FOR  N*ø  TO  50NEXT 

420  LOCATE  XX,  YX  PRINT  STRING«  6, 207 )  i  LOCATE  XX,  YX-L  ■  PRINT  STR I  NG*C  6 . 207  >  FOR  N= 
0  TO  200 : NEXT 

43ø  LOCATE  XX, YX  PRINT  STRING« 6,32 )= LOCATE  XX, YX-1 : PRINT  STRING« 6, 32 > 

440  F*F+f: BORDER  F  MOD  32  * RELEASE  7 
430  R*1 1  RETURN 
460  *  BENZIN 

470  LOCATE  1.22:  PEN  3  ■  PR  TNT  "BENZIN:  "  ;  OSINC"###i#J< ,  BZ 
480  TF  BZ  =0  THEN  U*REMAINCØ)=GQTQ  660 
490  BZ=BZ~ løø 
300  RETURN 

510  HOVE  304.204  DRAW  304. 236. 3 ; URAN  336, 236, 3 * ORAW  336, 204 . 3 ■ DRAW  304,204, 3 ; RET 
URN 

5  20  ' skud 

530  HOVE  17, 98 »DRAM  32ø, 22ø,3= MOVE  623 , 98 : DRAM  32ø .220.3 
54ø  HOVE  1 7 . 98 ; DRAld  32ø. 22ø. G = MOVE  623 . 98 = DRRU  328,220,0 
SOUND  1,50,16,7,0,10 
IF  C  I6<XX  AND  XX<20'*  AND  CYX*li  OR  YX= 

I NT "RAMT « " i TR : GOSUB  380 

578  SK«SK-i ; LOCATE  30,22  FEN  3= PRINT "SKUD 
INf 0  > : GOTO  610 

530  IF  R=1  THEN  R*0  GOTO  170 
RETURN 
'SPIL  SLUT 

610  LOCATE  1,23: PEN  1: PRINT "DU  HAR  IKKE  FLERE  SKUD," 

62ø  PRINT  "VIL  DO  PRØVE  IGEN7<J/N>n 
IF  INKEYC45 )=ø  THEN  CLS=COTO  4ø 

IF  INKEY( 46 >=0  THEN  CLS  PRIHT'  TAK  FOR  DENNE  GANG ! " : RESTORE  GOSUB  798 : FOR  N=ø 
TO  Søø  NEXT  END 
S5ø  GOTO  638 

660  LOCATE  1,23  PEN  I  PRINT "DU  HAR  IKKE  MERE  BENZIN! 

670  'TITELSIDE 

630  NODE  O : BORDER  15= INK  0,0  INK  1,21 
690  LOCATE  1 . 1  PRINTHrø#^TJERNEJfiGER****" 

780  PR  I  T  STR  I NG*-  20 ,  1 27  >  PR  II  IT  "  AF  HANS  NI  NT  HER  ° 

71.8  GOSUB  798 

72ø  PRINT" DU  EP  I  EN  STJERNE-  JAGER  OG  SKAL  FORS-  7F 
DE*  " 

730 


350 

560 


12 )  THEN  TR=TR+t= LOCATE  28,22  =  REN  3: PR 

%usrNG"#r'jSk  =  iF  sk=o  then  r=ø  u*rema 


590 

680 


63ø 

640 


1 1 1 1 1  . .  ■■ 


; GOTO  628 


DIT  MODERSKIB 


MOD  FREMME 
LEMR 


PRINT  PRINT "DO  STYRER  DIN  JAGER  MED  CURSOR- TASTERNE  OG  SKYDER  NED  MEL- 
UMS- TASTEN* " 

74ø  PRINT "HELD  OG  LYKKE!" 

750  PPI NT "TRYK  PAA  'COPY'" 

768  IF  1NKEY<  9  ’j=ø  THEN  GOTO  788 

778  PE3T0PE  GOSUB  79ø  GOTO  768 

7SØ  MODE  t i  GOTO  48 

798  READ  fiOte,dur 

3øø  IF  NOTE* 9393  THEN  RETURN 

810  SOUND  1 , note ■ dur , 1 5 

320  GOTO  790 

830  DATA  478 ,50,313, 50,  353 ,13, 379 ,  1 3 . 4,?6 ,13, 239  ■  60 ,  31 9 . 60  ■  *  1 3 , 379 ,  i  j ,  426  13,  7 

39 ,60.319, 68 , 35$,  1 5 , 379 ,15-  358 .15. 476  <  78 , 99-^9 , 9939 


■  Jorden  bliver  angrebet  af 
fremmede  rumskibe.  Din  op¬ 
gave  er  selvfølgelig  at  forsva¬ 
re  hjemplaneten. 

Du  sidder  i  din  Starhunier  og 
kigger  ud  gennem  lasersigtet . 
Det  gælder  om  at  skyde  $b 
mange  fremmede  skibe  ned 
som  muligt,  Du  styrer  jageren 
med  cursortasterne  og  skyder 
med  mellemrumstangen¬ 
ten  .  □ 

Hans  Winther 
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et  ganske  udmærket  "første- 
adventure".  (CBS). 
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gen  var  god  og  passede  pd 
EhDollahs  dyrebareste  skat,  - 
rubinen  der  kan  forvandle  al¬ 
le  metaller  til  guld  (de  vises 
sten). 

Under  krigen  blev  Meglin 
vanvittig.,  og  nu  har  han  til¬ 
kaldt  en  horde  af  fabeldyr  til 
at  forsvare  rubinen  Spilleren 
skat  kæmpe  sig  igennem  by¬ 
en,  slå  Meglin  ihjel,  og  slippe 
ud  igen, 

Goldstar  reklamerer  med,  at 
der  bruges  en  helt  ny  teknik, 
hvor  man  ikke  som  normalt  i 
adventures,  møder  et  uhyre 
og  dræber  det  eller  bliver 
dræbt .  Det  er  også  sandt,  for¬ 


di  man  ved  mødet  kan  væl¬ 
ge  mellem  at  flygte  eller  slås. 
Hvis  man  vælger  at  slås,  kan 
der  ske  to  ting,  -  enten  ram¬ 
mer  man  eller  også  rammer 
uhyret,  Wauw, 

Ligetrem  at  kalde  det  for 
f  real-time  combat"  er  måske 
lidt  overdrevet.  Til  EhDollahs 
ros  skal  siges,  at  del  ikke  altid 
er  det  samme,  der  sker  på  de 
forskellige  steder  i  spillet.  Eh- 
Dollah  er  udelukkende  tekst, 
Nul  giatik  og  nul  lyd .  Spillet  er 
også  ret  let  selv  om  Goldstar 
påstår  det  modsatte. 

Det  er  måske  en  tordel,  for  ta¬ 
ler  man  engelsk  er  EhDollah 


Hvad? 

EhDollah? 


Hvem? 


EhDollah  er  navnet  på  både 
Goldstars  nye  adventure  og 
byen  som  eventyret  drejer  sig 
om.  Engang  var  EhDollah 
(byen),  konger  og  kejseres  til¬ 
holdssted,  men  efter  krigen 
med  den  grådige  '  'Sur-føde- 
ration" ,  er  byen  ialdet  totalt  i 
ruiner,  og  kun  et  menneske 
lever  stadig  i  resterne. 

Dette  menneske  er  den  onde 
troldmand  Meglin,  der  før  kri¬ 
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auic  irøy 

I  Roland  go  es  Digging  skal 
du  grave  huller,  som  nogen 
levende  løg  kan  falde  ned  i. 
Så  snari  løget  er  dumpet  i, 
skal  man  skynde  sig  at  dæk¬ 
ke  hullet  til  med  sin  spade. 
Hvis  man  ikke  når  det,  kom¬ 
mer  løget  op  igen,  frygtelig 
rød  al  vrede.  Det  vil  så  direk¬ 
te  jage  én,  op  og  ned  ad 
trapper  Eneste  redning  er  al 
grave  to  huller  under  hinan¬ 
den,  så  det  sure  løg  kan  talde 
to  etager  ned,  tor  det  kan  det 
nemlig  ikke  tåle.  Mens  alt 
dette  foregår  falder  lltmæng- 


nå  al  putte  alle  løg  i  jorden, 
før  ilten  er  udtømt. 

Spillets  gialik  er  elendig, 
grove  tegninger  og  grimme 
farver.  Lyden  er  om  muligt 
værre,  men  den  kan  man 
dog  slukke  for.  Spændingen  i 
spillet  modsvarer  stort  set 
spændingen  ved  at  grave 
løg  ned  i  sin  egen  have.  Så 
sådan  set  er  det  et  ret  realistisk 
spil.  (Twilight). 

Gratik:  7 

Lyd:  6 

Action:  7 

Spænding:  6 

Pris/kvalitet:  6 


Rumkuller 
til  lavpris 

1985  har  ikke  noget  med  års¬ 
tallet  at  gøre,  som  vi  befinder 
os  i  netop  nu.  Hvad  tallet  skal 
henføre  til  er  lidt  usikkert,  men 
i  hvert  fald  er  det  titlen  på  Ma¬ 
stertro  nics  nyeste  produkt.  Et 
mmspil  efter  klassisk  mønster, 
der  kun  vinder  i  vores  gunst, 
fordi  det  er  meget  billigt . 
1985  er  joystick  kontrolleret 
og  minder  i  styring  meget  om 


velkendte  Lunar  Lander.  Du 
skal  besøge  forskellige  plane¬ 
ter  med  dit  rumskib,  tanke  op 
fra  små  lilla  depoter  og  snørk¬ 
le  dig  igennem  rumlabyrin¬ 
ter. 

1985  er  et  udmærket  spil  for 
begyndere.  Undervejs  i  uni¬ 
verset  besøger  du  8  forskellige 
planeter,  inden  du  hopper  vi¬ 
dere  til  næste  sværhedsgrad. 
(Superso  ft). 

Grafik:  7 

Lyd:  6 

Spænding:  8 
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Konkurrence 
for  McEnroe 


Matchpoints  er  lige  ne1opr 
hvad  du  får,  hvis  du  kan  be¬ 
gå  dig  i  Psions  usædvanlig 
flotte  sportsspil  af  samme 
navn.  Det  er  tennis,  det  hele 
drejer  sig  om,  Ovenikøbel  i 
en  udgave,  som  slår  alt, 
hvad  vi  hidtil  har  set  i  genren. 
Matchpoint  har  været  på 
markedet  i  et  tille  stykke  tid, 
men  spillet  er  så  godt,  at  vi 
simpelt  hen  ikke  kunne  lade 
være  med  at  anmelde  det 
Matchpoint  er  ikke  blot  et  fas¬ 
cinerende  tennisspil.  Pro¬ 
grammet  kan  udmærket  biu- 


I  elektronik 
helvede 


Grafik: 

Lyd: 
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COMMO 


ges  som  kursus  udi  John 
McEnroe  sporten.  Spilleren  ser 
nemlig  på  en  meget  livagtig 
måde,  hvordan  ketsjeren 
skal  holdes  i  alle  mulige  sne¬ 
dige  stag  -  underskruning, 
overskrue,  sideskrue,  smash 
osv. 

Matchpoint  har  en  rimelig 
god  grafik,  og  lyden  er  be¬ 
stemt  ikke  at  prale  af.  Til  gen¬ 
gæld  er  spændingen  meget 
større  end  i  markedets  øvrige 
sportsspil. 

Du  kan  vælge  mellem  at  spil¬ 
le  mod  computeren  eller 


mod  en  kammerat.  Normalt 
skal  man  starte  i  indledende 
kampe  tor  at  fortsætte  i  semi- 
tinaier  og  helt  frem  til  de  store 
finale.  Med  lidt  fingerfærdig¬ 
hed  kan  du  dog  direkte  pla¬ 
cere  dig  mellem  de  sidste  to  i 
turneringen.  Pointsgivningen 
er  præcis  som  i  rigtig  tennis. 


(Twilight), 

Grafik: 

Lyd: 

Spænding: 
Pris /kvalitet: 


■  For  meget  længe  siden,  i 
en  galaxe  langt  langt  væk, 
lå  planeten  Guon,  der  beher- 
skedes  af  den  onde  kejserro- 
bot, 

I  Psytraxx  er  du  en  mi  kro - 
robot  der  skal  trænge  gen¬ 
nem  kejserens  elektroniske 
kredsløb  for  at  nå  frem  til 
hans  CPU  (hjernen  i  enhver 
computer)  og  ødelægge 
den. 

Undervejs  bliver  du  angrebet 
af  alt  lige  fra  kondensatorer 
og  transistorer  til  blinkende 
lysdioden  Heldigvis  har  du  en 
lille  kanon,  der  skal  lades  op 
med  de  batterier,  du  finder 
undervejs. 

Fabrikanten  hævder,  at  der 
er  mere  end  1 000  skærme  at 
udforske,  og  dette  går  natur¬ 
ligvis  ud  over  detaljerne . 
Hvert  rum  er  en  lille  labyrint 
ai  printbaner  besat  med  for¬ 
skellige  komponenter,  som 
du  ikke  må  ramme.  Det  gæl¬ 
der  om  at  tinde  de  forskellige 
adgangskort,  så  du  kan  kom¬ 
me  ind  til  selve  CPU  en, 
Psytraxx  kræver  ikke  den 
helt  store  hjerne  virksomhed, 
men  det  må  være  op  til  den 
enkelte  at  afgøre,  om  dette 
taler  for  eller  imod  spillet.  Spil¬ 
let  er  ret  ensformigt,  men  er 
utvivlsomt  et  udmærket  alter¬ 
nativ  til  sovepiller.  (Twilight)D 
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Udforsk 

tiden 

Nu  har  du  chancen  for  at  se, 
hvordan  jorden  var  i  fortiden 
og  hvordan  vi  vil  få  det  i 
fremtiden.  Det  er  i  hvert  fald 
den  ydre  ramme  i  Poland  in 
Time  fra  AmsofL 
Eller  med  Amsofts  egne  ord: 
Roland  er  strandet  på  jorden, 
og  skal  nu  søge  hele  dens  for¬ 
tid  og  fremtid  igennem  efter 
krystaller  til  hans  ødelagte 
Ant i -Matter  Space-Time  Run- 
A-rounD.  Der  er  98  tidszoner 
med  hver  op  til  9  underzoner 
ialt  53  scener,  der  skal  søges 
igennem. 

Undervejs  vil  du  støde  på  de 
mærkeligste  dyr,  hvis  eneste 
fællestræk  er,  at  de  dræber 
dig  hvis  du  kommer  for  nær. 
For  at  komme  igennem  alle 
de  scener  der  er  i  hver  enkelt 
tidszone  skal  du  ofte  foretage 
de  mærkeligste  krumspring 
og  finde  usynlige  hemmelige 
gange . 

Poland  in  Time  ser  mistæn¬ 
keligt  ud  til  at  være  inspireret 
af  Manic  Miner.  Men  spillet  er 
selvstændigt  og  godt  lavet. 
Det  varer  MEGET  længe  før 
man  bliver  træt  af  at  søge 
igennem  scenerne. 
Grafikken  er  ret  god,  hurtige 
sprites,  farver  og  andre  effek¬ 
ter.  Lyden  er  elendig,  Det 
eneste  gode  man  kan  sige 
om  den,  er,  at  den  kan  slås 
Ira!  Selve  spillet  er  som  anty¬ 
det  fremragende.  (Twilight), 
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pokkers!  -  Nå,  men  jeg  må 
hellere  se  og  finde  min  rede  i 
stedet  for  at  ligge  her  ude  i 
skoven  og  sove  hele  livet 
væk. 

Men  -  intet  er  som  tør,  pludse¬ 
lig  er  der  spøgelser  overalt.  De 
flagrer  hen  over  hovedet  på 
Gryphon,  der  med  mystiske 
krumspring  må  forsøge  at 
undgå  dem.  Men  torsøge  sig 
til  vands  er  heller  ikke  muligt . 
Vandet  er  nemlig  blevet  for¬ 
vandlet  til  den  rene  gift. 
Gryphon  er  toruden  sine  fire 
ben  forsynet  med  et  sæt  vin¬ 
ger. 

Disse  vinger  kan  kun  boere, 
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■  Tony  Crowther ,  der  sidst  vi¬ 
ste  os  den  perfekte  efterlig¬ 
ning  af  Suicide  Express  med 
Black  Thunder,  kommer  her 
ih  verf  fald  med  noget  nyt. 
Gryphon  hedder  spillet  og 
handler  om  en  lille  griffin.  Et 
væsen  Ira  et  drømmeland 
fjernt  væk  fra  storbyernes  støj 
og  os.  Gryphon  ligger  og 
drømmer,  da  han  bliver 
vækket  brat  af  forstyrrende 
små  spøgelser.  Det  var  dog 


Har  du  nogensinde  prøvet 
af  flyve  rundt  i  luften,  lande 
på  heksekedler  eller  prøvet  at 
kæmpe  mod  kranier  og  mu¬ 
mier?  -  Hvis  ikke  skal  du 
prøve  at  spille  Sorcery. 
Sorcery  findes  til  både  Spec¬ 
trum,  Commodore,  Amstrad 
og  MSX  systemet.  Vi  har  speci¬ 
elt  kikket  nærmere  på  Spec¬ 
trum  og  Commodore  udga¬ 
ven  og  viser  skærmbilleder 
fra  disse  to. 

Spectrum  udgaven  er  en 
meget  skrabet  udgave,  hvor 
du  kun  har  1 5  skærme  til  hele 
spillet.  Spillet  kan  med  lidt 


held  gennemføres  på  meget 
kort  tid,  og  vil  ikke  motivere 
en  garvet  spiller  til  at  fortsætte 
med  det,  når  først  spillet  én 
gang  er  kørt  til  ende 
Sprit 'ene  er  ikke  særligt  vel¬ 
lykkede,  og  især  mumie  - 
spiit'ener  grim.  Lydsiden  må 
betegnes  som  direkte  ubeha¬ 
gelig  og  spændingen  må 
man  lede  længe  efter.  Com¬ 
modore  udgaven  har  1 7 
skærme,  flot  grafik  nogenlun¬ 
de  lyd  og  flotte  sprites  Især 
det  flyvende  spøgelse  Svær- 
hedsgraden  er  lidt  større  end 
på  Spectrum,  idet  energien 
og  tidsfaktoren  tilsammen  er 
sat  så  snævert,  at  man  næ¬ 
sten  aldrig  kommer  igennem . 
Selv  forskellige  joystick-ekvili- 
brister  havde  problemer  med 
at  klare  mere  end  12  af  de  17 


skærme. 


i  »t 


AMSTRAD 


TUUM 


artister 


En  af  de  flittigste  producenter 
af  MSX -programmer  er  ja¬ 
panske  Konami.  I  Circus 
Charlie  styrer  du  klovnen 
Charlie,  som  skal  underholde 
publikum  bedst  muligt  ved  at 
udføre  5  mere  eller  mindre 
halsbrækkende  eirkusnum- 
re,  Først  skat  du  springe  gen¬ 
nem  brændende  ringe, 
mens  du  rider  på  en  dresseret 
cirkusløve.  Pas  på  de  små 
bål,  der  er  tændt  i  manegen . 
Dem  skal  du  springe  over. 
Når  du  er  nået  gennem  hele 
banen  skal  du  til  at  gå  på  li¬ 
ne,  Det  lyder  måske  nemt, 
men  du  skal  passe  på  aber¬ 
ne:  Hvis  de  rammer  dig  falder 
du  ned .  Herefter  skal  du  ba¬ 
lancere  på  nogle  store  bolde, 
ride  på  cirkushest  og  hoppe 


fra  trapez  til  trapez.  Du  kan  få 
Charlie  til  at  bevæge  sig  frem 
eller  tilbage  og  hoppe,  og  det 
gælder  hele  tiden  om  at  ha¬ 
ve  timingen  i  orden.  Ellers  fal¬ 
der  du  ustandselig  på  halen. 
Circus  Charlie  er  let  forståe¬ 
ligt  og  ublodigt,  og  vil  derfor 
først  og  fremmest  henvende 
sig  til  de  yngste.  Grafik  og  lyd 
kan  ikke  måle  sig  med  de 
bedste  spil,  men  virker  dog 
ganske  overbevisende,  idet 
der  er  gjort  udstrakt  brug  af 
sprites.  En  god  detalje  er,  at 
du,  når  du  har  mistet  din  sid¬ 
ste  Charlie,  kan  starte  et  nyt 
spil  med  at  udføre  det  samme 
nummer,  som  du  sidst  arbej¬ 
dede  med.  Du  behøver  altså 
ikke  starte  forfra  ved  hvert  nyt 
spil.  (Twilight). 

Grafik :  9 

Lyd:  I  8 

Action:  1  8 

Pris /kvalitet:  - - -  8 


Hekse¬ 

kunster 


såfremt  han  har  rigeligt  med 
tilløb  først.  Når  Gryphoner  "in 
the  air  "  kan  han  så  kaste  di¬ 
verse  forbandelser  i  hovedet 
på  de  omkringilyvende  spø¬ 
gelser. 

Hvis  Gryphon  får  kontakt  med 
et  spøgelse,  dør  han  øjeblik¬ 
keligt  Gryphons  opgave  er  at 
medbringe  en  guldbarre  fra 
skoven  til  at  plumpe  i  det  for¬ 
giftede  vand  for  derved  at  la¬ 
ve  en  sti  til  reden . 

Efter  vejen  er  klar  fil  reden, 
kan  Gryphon  hvile  lidt  i  re¬ 
den,  iøi  turen  går  videre  til 
næste  trin,  der  er  en  helt  ny 
verden  al  huse  og  bygninger . 
Sidste  level  foregår  i  tusmørke - 
landet,  hvor  døden  lurer  alle 
vegne . 

Spillets  originalitet  er  der  den¬ 
ne  gang  ingen  tvivl  om,  og 
Guicksilva  kan  uden  slinger  i 
valsen  kalde  deres  Gryphon 
for  en  nyhed.  Grafikken  i  spil¬ 
let  er  fantastisk  flot,  og  hvis  du 
er  i  besiddelse  af  Currah  Mi¬ 
cro  Speech  lår  du  sjove  be¬ 
mærkninger  med  på  vejen. 
(CBS). 

11 
10 
10 

Fængslende:  9 

Pris/kvalitet:  10 


50 ft  Special  1 1 


9Ct  *&£  fcy  TstE 
EnEftcy . -il  y. 


RMAtfr.  M  H 


Slappe 

kattetarme 


Ideen  er  den  samme,  nemlig 
at  tage  en  nøgle  og  bevæge 
sig  til  Stone  Henge  (en  kendt 
bunke  sten  i  England)  og  løse 
mysteriet. 

Amstrad-udgaven  må  være 
Virgins  næste  mål,  for  her  er 
spillet  forsynet  med  hele  40 
skærme,  god  grafik,  bedre 
lyd  og  selvfølgelig  større  svær¬ 
hedsgrad  og  afveksling 
MSX  udgaven  overgår  Am- 
strad,  idet  du  her  har  50  - 
halvtreds  skærme.  Hver 
skærm  er  dog  ikke  så  detalje¬ 
ret  som  f.eks.  Commodore  og 
Amstrad,  men  er  heller  ikke 
på  nogen  måde  dårlig.  Ideen 
med  Sorcery  er  ikke  noget 
nyl,  men  kan  alligevel  anbe¬ 
fales  nye  computerejer©,  der 
ikke  har  spillet  så  mange  spil 
før,  og  derfor  ikke  gennemfø¬ 
rer  spillet  så  hurtigt.  (CBS). 


Gralik: 

Lyd: 

Action: 

Fængslende: 

Pris/kvalitet: 


C  64  Spectrum  Amstrad  MSX 
10  7  10  9 

9  6  9  9 

S  8  8  8 

8  8  8  8 

8  6  3  8 


Sorcery  til  Commodore  64 
tlotte  sprites  og  supergrafik 


Spectrum-udgaven  med  sine 
mindre  pæne  sprites . 


■  Ja,  kattetarme  er  jo  be¬ 
kendt  noget  man  benytter  til 
ketschere,  og  i  dette  tilfælde 
tennisketschere. 

Hvis  man  har  prøvet  Psions 
Matchpoint  -tennisspillet  for 
eliten,  bliver  man  uden  tvivl 
enormt  skuffet,  når  man  prø¬ 
ver  On  Court  Tennis  fra  Acti- 
v  ision. 

Aci  i  vision  plejer  jo  ellers  at  le¬ 
vere  kvalitetsspil,  men  er  den¬ 
ne  gang  skudt  langt  langt  for¬ 
bi. 

On  Court  Tennis  virker  meget 
levende,  og  served  første  øje¬ 
kast  ud  til  at  være  endnu  et 
fint  produkt.  Men  snart  opda¬ 
ger  man,  at  sceneriet  trods 
den  flotte  opsætning  ikke  rig¬ 
tig  kan  bruges  til  noget. 

Du  kan  vælge  at  spille  mod 
computeren  eller  mod  din 
kammerat.  Hvis  du  spiller 
mod  computeren,  hai  du  sim¬ 
pelthen  ikke  en  jordisk  chan¬ 
ce.  Hvis  du  spiller  mod  din 
kammerat,  og  han  med  møje 
og  besvær  finder  ud  af,  hvor¬ 
dan  man  skal  bringe  bolden 
over  på  den  anden  side  af 


nettet,  kan  du  næppe  retur¬ 
nere  bolden  9  ud  ai  1 0  gange  > 
Så  selve  konkurrencen  i  spillet 
er  bare  lig  med  nul  -  zero  - 
nothing . 

Styringen  af  On  Court  Tennis 

foregår  selvfølgelig  med  joy- 
stick .  Men  du  skal  ikke  bevæ¬ 
ge  din  spiller  på  banen,  men 
derimod  kun  koncentrere  dig 
om  det  rette  salg.  Slagene 
kan  ifølge  instruktionsheftet 
foregå  efter  alle  kunstens  reg¬ 
ler  hvor  75  pct,  af  dem  går  i 
nettet.  Du  kansideskrue,  over¬ 
skrue,  underskrue  samt  sma- 
sche  i  serven. 

Belægningen  du  kan  spille 


på  er  grus,  asfalt  eller  græs  og 
forskellen  er  ens  (som  de  siger 
vestpå). 

Grafikken  i  On  Court  Tennis 

er  livagtig,  men  ikke  perfekt. 
Figurerne  er  pæne,  men  re¬ 
sten  er  kedeligt.  Lydsiden  er  li¬ 
gesom  i  Mcrtchpoint  ret  beske¬ 
den.  Hvilken  lyd  skulle  man 
også  finde  på  til  tennis.  Spæn¬ 
dingen  er  som  sagt  næppe 
værd  at  omtale.  (CBS), 

Grafik:  - i|  8 

,  COMMO  I  , 

Lyd:  D«f  ®  6 

Action:  8 

Fængslende:  5 

Pris/kvalitet:  6 


1  RE  M  *w  ***  BO  R  GE  x*  *  #  * 

2  RE H  43K  IX  SPECTRUM 

3  REM  3  JUPPI  SØFTUARE  1934 
12  GO  mjB  3560 

20  RESTØRé  ?  LET  krop*  160  z  LET  if  i  LET  i+Jb=0:  LET  Ki*t*«U  LET  buko*0 
3ø  BORDER  7;  PAPER  7:  JNK  0:  CLS 

60  FOR  v*=0  TO.  31  i  PRINT  AT  21.  v5  INK  4+CHR*  162:  NEXt  v 
70  GO  SU&  3000 
30  INK  O 

100  FOR  w=2ø  TO  O  STEP  -1 
110  GC  SlB  6000 
120  NEXT  w 
150  GO  5LB  BO 00 

1403  pT  20*2 i  INK  itCSRV  :54+ChR*  155  5CHRS  136  ;  AT  13*  3  i  CHR*  :53?  PAUSE  IS- 

3SINT  AT  20+1?  JNK  1+CHR*  160? AT  13, iTCHR*  16, 

150  £EEP  +  3i  O  s  BEEP  »3+0?  EEZP  .3,0:  ^PUSE  2*  62  2  P  i,  -4 
170  00  9JB  7000 

130  LET  »os  =  Q!  LET  tni«+i  r  =  lE3:  „ET  u^;  'ér=0 
290'tST  t Jt»i  1  er nd»:  1  *r  +  l 

*0J-  LE"  ;  1  er/20 :  Ir  *>  20  ‘"HEN  3RIN-  amRT  0+0?  T lASLi  i  ; "SOM  M  DEM  DOG  G££ 

3  “ED  INGENTING"  ?  &EE3  -  5+  O !  BEEP  .6,-4:  BEEP  .2+0:  30  SU&  6500 
205  IF  «-lNT  *  THEM  GD  Su&  6000 
207  GD  SUB  2500 

215  IF  INKEYt-'n"  AND  buenr> 144  THEN  #ZEP  +01.0:  LET  bu*n/-bu*A r- 1  i  G3  50&  750 
O 

240  IF  IWEVt^'w"  THEN  GD  3UB  2000 
250  GQ  SUB  3000 
SCO  GO  to  200 
2000  REM  skyd 

2005  LET  ta.eue=ør  lET  hO+i=l3 

2010  FOR  w  =  buer+r  TO  15T:  PRINT  AT  19,  oc-a+Tf  INK  I+CHR*  *:  '_ET  bu*o=l?  GO  SJB  300 
O:  NEXT  wi  rLÉT  styrkp=au&nr:  ..ET  &uerir=153:  LET  kuxo-O 
2C30  FOR  rt»POS+4  TD  31?  PRINT  AT  nøg.wtCHR*  157 
2C35  LET  t»e  1  te-bae  1  14+1 

2040  GO  SU8  300ø:  GO  5UB  2500=  PRINT  AT  hø ,+  +  «:"  " 

2050  IF  ATTR  C  høg  ,  «+ 1  >  =38  THEN  PRINT  PT  nøj.w+itCHR*  153:  FOR  b-i  tq  io:  BEEP  , 

01.10+bS  NEXT  6!  so  8U8  2100:  LET  bu*nr=l33l  RETURN 

2055  IF  tae  Me<-U53-tty  rite)  THEN  LET  høj^høg-,  6:  GD  "O  2065 

2060  LET  hOj*hO/++i 

2065  IF  høj >20  THEN  BEEP  ,2+ -30:  LET  bu*r+r=l53:  RETURN 

2066  NEXT  w 

2070  LET  buenr-153:  RETURN 

2100  IF  w=2£  THEN  FOR  v»J  TO  10:  BEEP  +01+ lø?  DEEP  +01*20?  BEE?  +01.30?  NEXT  v: 

GO  TO  5500 
2110  RETURN 
2500  REM  rykker  v&vt> 

2510  IF  INKEY*=Ha"  AND  pos>  O  THEN  LET  pgs=d*s-1 
2520  IF  INKEY*  =  ''  %"  AND  p+:.ft<2ø  THEN  LET  pos-eoS+1 

2525  PRINT  AT  19*  POS  1  INK  0:"  "i  INK  11 CHR*  uros?  INK  O?1"  "  ?  INK  1  ?  PT  20,  pcs?  IN 
K  Ø?"  M  INK  1  i  CHRt  160  +  CHR*  154:CHR*  155?CHR*  136!  INK  O?"  “?  INK  1?AT  19 +  b£,S  +  3 
:  CHftt  buenr:  INK  0:"  51 
2530  RETURN 

3000  REM  fjenden  skyder 

3010  IF  buk o=l  THEN  GO  SUB  3200 

3015  IF  ti  lb=l  THEN  LET  t+fb-ø:  RETURN 

3ø2Q  IF  s  +  ete  =  l  THEN  LET  p  1  et « -ocs+3 :  LET  Simte-O?  LET  kLix  =  24i  lET  kjy=S 
3030  PRINT  AT  Kur* kun  i"  " 

3040  LET  kux«ku)i-l 

3050  LET  kuy*koy+l 2/ <25-Pi etx > 

3052  If  hu  y )  20  THEN  BEEP  +01*10?  LET  ^^te^l?  RETURN 

3055  IF  ATTH  CKu y + k u * > =57  THEN  BEEP  1,0:  BEEP  i. -10:  BEEP  1,-20:  PRINT  AT  19* eo 

sl“  "TAT  20*  POS :  "  PLOT  Cpos+2),i»'S,  E?  DRAW  O.  16:  DR  AU  0+ -5:  DRAW  -5+ ø:  0 

RAW  10+  Oi  GO  TO  6000 

3060  PRINT  AT  Ku y , k u* i CHRS  157 

3090  RETURN 

3200  REM  holder  fart  ved  Skud 

3210  IF  k/2-INT  Cn/21  THEN  LET  tUt-l 

3220  RETURN 

5000  REM  tesnhorg 

5010  INK  2i  FOR  v~20  TO  10  STEP  -\i  FOR  w^26  TQ  28:  PRINT  AT  v.hiCHS*  163:  NEXT 
w:  NEXT  vi  PRINT  AT  9.  25ICHR*  163; AT  9+27ICHR*  163 1 AT  9.29;CHRt  163 

5020  FOR  v-20  TQ  16  STEP  -li  FOR  w^2S  TG  31?  PRINT  AT  v+  w?CHR*  163:  NEXT  w;  NEXT 

v 

5030  RES TORE  5030:  PLOT  208+ S:  FOR  i  TO  17?  READ  xx.yy?  DRAW  xx+yy:  NEXT  *?  DA 
TA  0+  SB.  -S+  0+0+  S*  S,  O*  0+  -8+  S*  Oi  0+  3.  8+  0.  0+  -8+  8*  0+  0+  B+  B+  O,  0+  -8+  -B+  0+  0+  -SS*  0.  56+  23+  O 
5040  RETURN 
5500  REM  ruin 

5510  FOR  b-0  TO  30:  BEEP  .01*6?  BEEP  .01+6+ 10:  MEXT  b 

5520  FQR  w=8  TO  20:  PRINT  AT  Ht  25?"  41  ?  NEXT  h 

5530  INK  2i  RESTORE  5530?  PLOT  248.64:  FOR  m»1  TO  15:  READ  kx+ rr :  DRAU  xx.yy?  NE 

XT  wl  DATA  0+ 15.  ~lø+ -20+ -10.  13. -3. -20+ -2+ 5. -6+ -10+ Oi -B* -5+ -10+4, -2*  *2+ -?+ -3+ -5. - 
4 1 —6 . 1 S 1 3  0  *  *3 +lø.  2ø  + “9 

5340  PRINT  AT  16+2SlCHRi  l63?CHRt  163?CHR*  163? AT  1S.29TCHR«  163: AT  20. 27:CHR»  1 
63ICHR«  163 

5550  INK  ø:  PRINT  ti  :AT  O+O:  FLASH  l?l'TIL  LYKKE  DU  KLAREDE  DEN!" 

5555  FOR  C-I  Tø  2 
5560  RESTØRE  55 SO 

5570  FOR  b“l  TØ  18?  READ  t+eep:  BEEP  *l+b*ep  +  d  NEXT  bi  NEXT  c 
5S80  DATA  16+ 16.  16+  12+  7.  ø+ 16+  16+  14+  12+ 7+ O.  12+  12+ 14+  14+  12+  12 
3590  PRINT  ti? AT  0.  O!” VIL  DU  PROVE  IGEN  7  -  TAST" 

5600  LET  høø'O 

5610  ] F  hon/2^lNT  i hOb/2)  THEN  PRINT  AT  18,  pos+ 1  ?  INK  1 1 ,r  "  ?  AT  i 9,  qos+ I  +  CHRf  13 
9+ AT  20* eøt+1 SCHRt  160 

5620  IF  høo/20  INT  (nc.b/2)  THEN  PRINT  AT  18,  pos+I  V  INK  1  iCHR*  161+ AT  13.  oq*+1?C 
HR*  1 60  i AT  20,  POH+l  ?"  " 

5630  BEEP  .  05 1  RNØ+MØ 

5640  LET  hOP*hOd+i 

5650  IF  iNKEYta" "  THEN  GO  TO  56 J C 

5060  GØ  TO  20 

6000  REM  to ! en 

6005  RE STØRE  6040:  FØR  v-n  TØ  *+9  ^ 

6010  IF  v>  20  THEN  NEXT  vi  RETURN 

6030  READ  »t  t  PRINT  AT  y,  Øl  INK  6i«*:  NEXT  v  N  * 

6040  DATA  "  1  mm  "+  “  MM  "+  "  ^^M 

Mj|^  ^  m  1  ia  1  u 

6050  RETURN 

6500  REM  dét  bi  i  r*  ifttn 

6510  FOR  c* I  TØ  ICO?  NEXT  ø:  PAPER  Oi  BØRDER  Ot  ]NK  7:  CLS  :  GC  SUB  5Q0Q1  INK  7* 


-KIM: 


■  I  dette  sjove  spil  tu  Spectrum 
kommer  du  tilbage  til  forti¬ 
den. 

Du  skal  forsøge  at  smadre 
computerens  borg  med  din 
stenkaster  Programmet  er  til 
Spectrum  48  K.D 

Jens  Ulrik  Pedersen 
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12  Sott  Special 


PROGRAMMØRER 
TIL  SOFT 


Hør  på  "SO FT'  og  "Alt  om 
Data"  søger  vi  hele  tiden  ef¬ 
ter  nye  og  spændende  pro¬ 
grammer  tu  alle  gængse 
computertyper.  Lige  fra  små 
smarte  rutiner,  over  spil  til 
seriøse  brugerprogrammer. 
Alle  offentliggjorte  program¬ 
mer  belønnes  med  op  til 
1 000  skattefri  kroner,  der  ud- 


udlistnlng.  Programmer 
udøn  medsendt  lagermedie 
kan  Ikke  bearbejdes  af  re¬ 
daktion  og  får  derfor  ikke 
chance  for  at  komme  i  bla¬ 
det. 

Af  praktiske  grunde  beder  vi 
om,  at  du  vedlægger  en 
frankeret  returkuvert  med  ty¬ 
delig  adresseangivelse. 


&RI  GUT  IT  Cl  FtCLE  20.155,20:  CIRCLE  25.  :6£.  3:  CIRCLE  15,168,3:  CIRCLE  20,145,3: 

&  RIGHT  0 

6530  LET  z  *  -  "  z  z  z  z  i  Z  Z  Z 

6540  PRUT  #l:AT  Oi  05 "  DET  ER  BLEVET  MORKT-SORRY 1  " 

6550  RESTORE  6550*  FQR  b=I  TO  *6 :  READ  teepi  DEEP  . 4,b*ep:  NEXT  &i  DATA  5.5.2.  2. 
3.5.  2>  2,  3.3,  2,3,  5,5*  2,  2 

b555  PRIMT  UllAT  0,  O:  "  VIL  DU  PROVE  IGEN  ?  -  TAST" 

6560  FOR  h=1  TO  2:  PR  I  NT  AT  3,  24-w  i  INK  6iz*(w>:  PAUSE  4:  GO  5DB  6700:  NEXT  Ms  F 
JR  w=i  TO  S:  PRINT  RT  S,  2*-w!H  11  t  PAUSE  6;  GO  SDE  6700:  NEXT  *#:  PAUSE  15 
6580  GO  TO  6560 
6700  REM  siafter 

6710  IF  I  MKEYf  C)  " 11  THEM  GD  TO  20 
6720  RETURN 
6 SOO  REM  død« 

6310  FOR  W=1  TQ  100  s  NEXT  wi  PR  I  NT  *1  ;  AT  0,0  i1 DU  DG  DIN  MASKINE  ELEV  RAMT  ! 

■I  INVERSE  HMrø  HVIL  I  FRED  3D" 

6320  REETDRE  6820:  FOR  &-1  TO  11;  READ  be*e:  DEEP  ,3, bÉfrø:  NEXT  hi  DATA  O, O.  C,  Ot 

—  4,  —4 .  -4.  -6.  -4,  -6,  —  6 


betales  kort  efter  at  bladet  er 
udkommet. 

Indsend  dit/dine  program¬ 
mer  på  kassettebånd,  di¬ 
skette  eller  mlkrodrlve  og 
vedlæg  beskrivelse  og  gerne 


Vi  glæder  ostil,  at  du  kontak¬ 
te  os.  Send  programmerne 
til  "Alt  om  Data",  St.  Kon¬ 
gensgade  72  T  1264  Køben¬ 
havn  K.  [yirLTLTUVj^ 

'  ~  i,  3  u  m. 


jr  u. 


IL  I  i 

n  é 


6S30  PRINT  #1  *AT  G,  Oi”VIL  DU  PROVE  IGEN  7  -  TAST 

II 

6340  LET  i-lQ&-ø 

6350  IF  hOP/2»lNT  (hop/2>  THEN  PRINT  AT  S,  26 : CHR4  153 ‘AT  9,  26!CHR*  160 
6360  IF  hftP/2()lNT  Ihco/2>  THEN  PR  I  MT  AT  3,  26  i"-  ".AT  9,  26ICHR*  161 


6870  BEEP  *ø3tRND*-20:  LET  hCP=hOP+l 
6880  IF  INKEY*^"  THEM  GO  TD  6S50 
6880  GD  TQ  20 
7000  REM  fj?snde  truff" 

7010  FOR  w=  1  TO  16 

7020  IF  w/2=INT  («/2)  THEN  PRINT  AT  9,  26:CHR*  139 
7030  IF  W/2  0INT  (h/2)  THEN  PRINT  AT  8,  26:DHR*  161 
7040  BEEP  .01,-20!  &EEP  .01,-301  NEXT  w 
7500  REM  ira&K  fjeder 


7510  IF  THEN  LET  kroo=15B:  LET  ar*i=Q:  GO  TD  7530 

7520  IF  uriri  =  0  THEN  LET  krap=16i:  LET 


7530  RETURN 
S  000  REMi  i  Osi&tv 

S005  NE5TORE  B020:  FOR  w-1  TD  15 

3010  HEAD  tone:  DEEP  . 4, tone:  NEXT  w 

S020  DATA  5*  10.9,  10,  10,  12,  12,  14,  17,  14.  12,  10,  7,5,5 

B030  RETURN 

9000  REM  »rat  i  et 

9003  RESTORE  9040:  FOR  v=l  TO  20 
9010  READ  al:  FOR  w=0  TQ  7 
9020  READ  ti  I  i  POKE  UBR  a«+w,ta( 

9030  NEXT  «f  NEXT  v 

9040  DATA  "a”.  O,  O.  O,  O,  O,  O,  192.  255*  "  b"  *  0.  O,  O.  O,  0.  182,  254,  1 

9030  DATA  '■c'1*  O,  0.0.0,  132,240,  14,  1,  **8“.  0,0,  0,96,  96,  24,  6,  1 

9060  DATA  "  e"  ,  0,  O.  96,  96,  24,  4.  2,  1 ,  "  f  "  .  O.  43,  48 ,  S,  4 ,  2,  1 ,  1 

9070  DATA  "g",  0.  24,  24,  4,2,2,  1.  1.  11  h",  12.  12,4.2,  2,2,  1,  1 

9080  DATA  "  ,  H  *  6,  6,  2.  2.  1 ,  1 ,  1 ,  1 ,  “  J  “ ,  3.  3,  1  *  1 ,  1 ,  1 ,  1 ,  1 

9090  DATA  3*  4*  11,22.  23.  6,3,0,  "l-.  2S5.  O,  142,  213,  1  17,  219,  142,0 


9100  DATA  128,64,  64,64,  192,  0,0.  O.  '“n"  ,  24,24,  O.  0,0,  0,0,0 

91  10  DATA  "o'',  128,64,  32,27,  4,3.  4S,  199,  ,pP'\56.  124,  SS,  125,69,  125,  57,255 

9120'  DATA  "h‘r,  134,184.  243,  40,40.  63,  68,  198.  "  r"  ,56,  124,  S4,  124,  1  OS,  124,  56,  255 

9130  DATA  "9".  170.  170.  170,  255,  255,255,0,0.  '  V  ,  128,  128,  123.  255,  S,  S,  S,  255 

9140  RETURN 

9500  REM  vej  redning 

9510  BORDER  i:  PAPER  li  INK  7:  CLS 

9520  INK  6?  PLOT  0,0:  DRAk  255.0:  DRAM  0.175:  DfiftW  -255,0:  DRAW  0,-175  :  INK  7 
9530  PRINT  AT  1,12!  INK  3!  FLASH  11  BRIGHT  l ! " *  BORGEN* " 

9535  PRINT  AT  iO,  l^SKYD  FJENDENS  SORG  I  STYKKER*  f  11 
9540  PRINT  AT  12, 3:"a=VCGN  TIL  VENSTRE" 

9550  PRINT  AT  1 4 . 3 : " »=VOGN  TIL  HOJRE1* 

9560  PRINT  AT  16, 3! "n=5PAEND  BUEN" 

9570  PRINT  AT  18,  3 :  " m=SKYD" 

95S0  LET  **=*3  JUPPI  SOFTWARE  19E4" 

9590  GO  SU 8  9000:  FOR  w*l  TD  21=  PRINT  AT  S,w*3:  INK  5!CHR*  154;CHR*  155;CHR*  15 
61  AT  8,  w+2!  INK  4:  INVERSE  ltn*<W)!  INVERSE  O!  AT  7,w+3;"  :  CHR$  153:  PAUSE  5:  NE 
X  T  w 

9600  PAUSE  50:  FOR  w=l  TO  7i  PRINT  AT  w,  25:"  "I  AT  w-H,2StCN(t*  157:  PAUSE  5:  NEXT 
ri!  BEEP  1,-30:  PRINT  AT  3,243"  "s  PLOT  200,106:  DR Au  O, 20: ' DR Ak  0,-7:  DR Au  -5 
, O :  DRAU  10,0 

3650  PRINT  #11  AT  O,  O: "TAST  !  ** :  BEEP  . 01,RND*30:  IF  INKEYS  O  "  "  THEN  RETURN 


HCT 

HarsCfi#  Tlxiyrøffj 


3660  GO  TD  3650 


Soft  Special  13 


so  go  sus  so  i o  t gosub35 i g 

30  PR  ENT-J-  JCMR*<  9>JCHR*(  345jCHR*<6J 
40  PftIMT-JBa  f  RYK,  _0fi  flT” 

43  POkE  S  35  SO  r  CM  P0K.E33E9  1  , 0 


30  Pft|NT-g  in  -  FEf®PE  HESTENS  nAvmE' 

SO  PR  [WT"a  O  -  OPTAGE  i_AAn* 

70  PfilNT^M  e  -  AFBETALE  LAAN* 

30  PR  [NT  “B  S  -  9AELGE  f  L  ESTE  MESTE - 

90  PPI HT- M  ft  -  LOEBE  MPESTE  LOEB- 

too  FP1WT-*W  B^IPiyisH  •>**** 

liO  ftHJNf*  U-'Q  NTANTER  i  '  ;PE 

130  PftlHT'ii  JLPPNTi-;PL 

130  PRJNT’B  H*MTPL  LOEB  LOEøETfJSL 

140  PFMNT'MI  l,fOTfl£T  VALG  t  -  f  i  G0SUBE0O6D  I — 

1 30  ] FA*-  *  A ■ THE  NGQ  5uB2@  O : GO  TO  30 

t60  IRA**  *o  -TMEM&0SUB4 30 :GØTQ30 

L  70  3FP*. ‘B^THENGOSUBSlOf GOT030 

ISO  IFA*-*3-THENG03LB6lO(GOTCGO 

L 90  I  FA*-  *R-THENGO5OB7Gø  =  GQT030 

eod  print-  n~n*  c  goto  i  40 

£  I O  EKO 

£60  PRJNT-*J1-  ! 

370  F Oft 1 - ] TO  I  O 

£73  I F  I  <  I  OTHEfPR  I  HT  -  ■JlMGOTOHS 

£00  PRINT] r  « 

3B3  PRINT*  ttmM~  L 

290  hCKTI  »I 

300  PR  INT"  ftD-.*®  TAST  MR  .  *  i  i 60SUB60060  jF 

310  IFHC  1QRA > IQTHENSEO 

3EO  PRINT- (HESTENS  GAM.E  NAVN  ER  i  K  J  HN*£  A  J  /hl 

330  IKPUT'^MSTAST  NYT  hlAvN*  :  HHfe  A  i  W 

340  IFLENE  HN*(  A  >  J-  i- 1 3THEMPR  I  NT*  _OR  LANG  TITT"  i  Q0TO3  3Q 

343  IPLENt  HN*(  AI  X  IBTHENHN*'  fl  )-HN*  AO  ♦  *  -iG0TO343 

350  Pfi  [NT-  _lERE  AEKCfi|*®EP-J  iGQBUBBOOBO 

360  t  FA®{  >  *  J * THE  M?E  TuRn 

370  GOTOaSO 

4  SO  PR  INT "  jU  E  NGE  i  BASKEN!  *  TRE 
4EO  PR  [NT^lf-rNGE  LAANT  i*)PL 

430  PBIf4T-SD-7®TA5T  LAAN- I  :  GOSUB5D06O 

440  IFABS« Aj*PL >£30000TH£snfiiNT-'[N  KASSEKREDIT  ER  PAA  £30.000  KR - i GOSUGSOO lO< GO 
TOR  10 

430  PE>PE*ABS<  A I :Pl-PL*ABS( A ) (RETURN 

31(5  PR  I  HT  *  JU  F  S  6  AsK£  Ni  -  JPE 

550  PR  I  NT ‘fTTNSC  L<AAMT  :  “  f  PL 

530  PR  3 T4T  ’ U-, s®  TAØ T  AF  BF  Tal  SnG  "  r  !  60SUB6QQ6Q 

340  JFPL-  ABS<  AJ*  OTHiKPR  INT"a_OR  STOR  AFBETAL,  [NQ  H  F  GOSuS SCO  I  O  i G0TO3  lO 
350  FE-FE -AB5(  Al  :  FL-FL  -AB51'  A  )  (  RETURN 

5  10  OOSUB 10*03 

630  PRlS4T-M*,r«TAST  SK  PAA  K£ST- 

S 30  PR  1  NT  '"OER  6kAl  @A£ lOE S  i  -  S  :  GOS  UBECOSO 

640  I  F  A  -  O  TH  £N7  30 

S30  1 FA<  OORA  J \ 00 RE  J(  A 1 - 0THEN6 1 0 

S  GO  LFEYf  A>*lTHErJPR  [SfT*  lESTEN  ER  SY6  -  [NGEN  VIL  KOEBE  DEN-  tOOSUBSOQ  10  (GOTOG  10 
670  Tl  -hv<  A>-<  H5(  h  >*3000  >  *  1NT<  RrOc  |  >  *  ;0000*HS<  Al  > 

660  PftENt-Jijr-ER  E«  BUDT-!  TLi  -KBr  Pfifl  -  ;  KWH  A  >  i  B-A 
6 SO  Pfi |NT-*COEPTEftEft  DU  0£T* / i OOSUBGOOGO 
700  i F A  *4  > ■ J ’ THEN72  O 

710  IL( B  ? -O  i EJf B  > -OtPE -P£  +  Tl : SYf  S  > -O  s 0CT073C 
7£0  [FRhCK  1 >  > . 4THEN5Y(  B 1 - l S  [L( B  > -O 
730  RETURN 
760  SL-SL*1 

770  PP!NT-LJflMt  OETKC  UGE  EB  LOEBET  O'  ^PRESTT*  -lTBfcSL> 

700  PRINT'  Ufi  GEBETS  SVAERMEOSCPAD !  3-  |TS? BL  1 
790  PR  INT  “»i  -  (FOR  AT  UOTAGÉ  ASCIRE  HESTE.* 

sao  pr  int  '  vb  ~ i  r^ym a  for  at  f ortsae tte  * 

BID  PRINT*  4  s®  TA  ET  VALG  *  n  00  SUBSOD  SO 
B£D  I F  A  *  -  "  A  “  THE  SJOOSUB  1  OG  S  O  1  GO  TO  770 
B30  GDSUB10405(  I FHL-4THESIG0SU6  L06  I0(G0T0770 
033  IFHLC  3ASCEH  -t  S  *kl  >  jOTMEna*-  -A  -  :  G0T0B£0 
S33  PR INT - J* 

@40  FOfil- I  TO  10 ( ABC  t 1-0  . 

030  I  FE  J<  I  >  -•  I  AND  [  L(  I  >  *  1  THEi,4AS<  I  1  *  H  S(  I  >  *9  ♦  HE  (  I  >  *■  I  SiT<  R  SC  (  11*10}  I 

060  s£KtI 

@70FOftl-lT03  i 

@73  M- tNT<  FTS«K  1  JBIDI+I  *  IPEJ(  Ml- ITHENB73  | 

090  AC<  I  1  -TS(  SL>F£*HEf  RSflt  1  >H0?  i 

930  S®XTI  | 

500  6-0iF0fi E- I  TO  10  ^ 

9  SO  SFASf  E  >  ?OAK(jASe  i  J  JASt  B  ITHESC«!  £ 

9£0  KCKTI 

930  CyOmFORI -1T03  [i 

940  I F  ACf  I  )  >flC<  C 1  THE  NC  *  I 
B3D  (®KTI 

333  M-1NT(  RSCf  S  ) ■ 101*1  * IFÉ Jf M> « | TNEN93S 

SSO  |FAS<  B>  ?AC<CJ“mEHLS-233iLC-S33-<  ASt  B  )-AC.(C>  >*2 

970  3  FAC<  C  H«<  B  1THEH.C-B33  f  LS -a33  -(  A Cl  C  )  -A@<  B  1  >  *a 

980  IFAC<  C  1  * AS(.  B  >THENAC<  C  HAC(  C  >  *TNT<  RW(  1  >*  101  c  ASI  9  >  »ASE  B  3  ♦  1NT(  RNEi-J  1  )  *  IO  >  1  GOTOS 


Tarok 


%  'å 


COMMO 

DORE 

64 


W/f/s  .S 


'JTBtt  sl> 


/ 

.  'ød 


00 

■  Her  er  så  el  computer  styret 
DERBY-spii  til  Commodore  64. 

I  spillet  kan  du  både  komme 
ud  for  sygdom  blandt  hestene 
og  økonomiske  problemer. 
Reglerne  er  kort:  Til  hvert  løb 


skal  udtages  3  heste,  hvis  det 
er  muligt.  Syge  heste  kan  ik¬ 
ke  udtages.  Efter  hvert  løb 
iorelaegger  computeren  et 
regnskab  med  udgifter,  ind¬ 
tægter  og  den  samlede  ba¬ 


so 

3  BO  I FLS  -£5  STHE  SIER  »S  P  ♦  T5<  SL  > 

IOI0  |FSP< ithcnsp- 1  1 

3  DEC)  GOS  UB  7  O  3  □ 

1030  POKEv ,50 ! PQkEV  +  2  .20 
1040  POKEV+1 , i93iP»tEV+3, I B3 
1030  POK£v*4,£OfPOKEV*B.SO 
1060  POREV  +  3,1  33  *  POK-EV  +  7,1 33 
1070  PDKEV+ te,OiPOKEV*a3 ,0 
1080  POKEV ♦ £9  ,q I POKEV *37, 0 
1090  AMNTC  RND(  1  1  *4  1  *  | 

1  IOO  PQKEV*41^0Fi  \ , A ) ( POKEV +4£ ,CP(  S ,A1 
ItlO  POKEV *39, 3  i POKEV *40, 0 
I  I EO  ROKEV+a  i  ,  13 
1  I  30  LI  -  EO ■ LE-EO 
l 140  LI -LI *1NT(RSCK  1 1 44  > 

1  130  L5-L2+  |NT(  fisen  |  H4) 
i  1B0  iFLl >LSTHENLI-LS 
1170  I FlB  >LC  ThENL  2 -LO 
1100  POKEV ,L I ! POKfv 4 2 ,L1 
L 1 90  POKEV *4 ,L£J POKEV +0  ,L3 
[ZOO  [FL l-a330RLa-a35TKENta30 
l£EO  GOTO! L40 

1530  D0SUB600  IO  t  PR  INT- J-  I  CHRif  g  ;  f  CHR*c  14  >  J  CHR*<  9  1  i  FGKEV*£  1  .0 
L  540  [ELI  -233Tk£lPR]nT*-]n  HEST  V  As®  TjnMH"  i  MStK  0  ) 

1230  3 F L 2  ■  2 53 7h£ KP P  t NT  ■  —  |  \,-64  HEST  vAs®  i  hnk  Ml 

5  360  POKE 33300 , 0 ( P0KE53S8 I  ,0 ' OOSUøeOO 50 

1370  RF*  INTf  PNO'!  H*1QOO>*  1000 

t?B0  RT*  [SfTr  Rf®(  t  1*1000  >*£300 

1  E3D  PG  ■  1  NT<  R(®(  I  J  *  lOOO  1*300 

1300  RR-  [MT(  FL  *0.003  > 

13  LO  IFLl  »aSSTHCSJfP^lNTf  TSf  SL  3  *  I  DOO  ♦  IDOOlRL®«:  1  >  ) 

1330  1FLI<  > 335 THENP P - INT'  T3<  S L > *300 t RNO L  1  > J 
1330  PR  E  NT  *  JU  U  OOERyOGIFTEP  i  'JPF 

1340  RR  I  NT  *  g  |  R  AsGPQ  R  TUEJG-  E  F  TE  R  i  “S  3T 

1350  FPIHT-S  PTALOLEJEt  - E PS 

1360  PR  lIfT-*  _£NTER  PAR  LAANi  -  f  pfi 

t  370  P]  *RF  .«T*R5*RR 

1330  PR  ENT-ar - 

t330  PRINT-  TAPLEOE  (1 00  IF  TER  ^  “  I  R  1 

I4QO  PR  INT*  JO  TÅEN  [E  [FCJAEOTi  *,LPR 


1410  F? -RR-R ] 

t4@0  PftlNT-a  OftARL-EOE  BALANCE  t  *  :  R£ 

L430  P£ -FE  *P£ 

Tttt -TfffiTLimrROdsub  10310 

1430  PR  INT '(Ml:  RYK  a_  *|  MjOSUØSOOGG 

1453  EN *0  c  FOR  I  -  I  TO  L O  c  I F E  J (  I  >  -  1  THENEH-EH  *  1 
1430  ÆXTI 

1460  t F em » 3 THE r JGQSUØ 3 3øO i GOSUBÉGC I  G  5  GOTO ] 64C 
3  470  C-1NT<  Rf®c;  l  J  TlO'i*  I 
1430  [FEJ(  C1-1TMEN1470 
1430  B*HV'  C  > 

1500  PR  t HT -  .JMB  BAr#.£f^l  HAR  DU  c  -  J  PE  t -KR  .  11 

1303  PR  [NT .C  ELGE  r®E  HEST  UOBYOES  TIL  SALG  s  - 

IMO  PPINT'flB  /AVt'J  »TYRKE  TEfiDl  >(AERD  E - 

L3EOPRENT-3  -iHN*CC>l"  - ; HS(  C ? t m  -^HEfC?;-  B 

1330  FFINT-JKUr  NDTflSTT  BUD  ELLEF- 

L34Q  PRENT-TRYK  J_T  FOR  AT  FORT  5  AE  TTE - 

1330  Pp INT- HtUDi -I iGGSU06006Di 1 -O 

1360  tF  A*00ftA*-»  "  'THEM |  64  0 

13S5  G-B-H9*  C  5  4000*  INTi  P'-JOi  1  >«2000*H6(  C  J  i 
L37ø  IFA>GAI®A<  »RETHEN1  -  1 
1330  EF | -OTHENISaa 

L3BO  PR  E NT “  Wflff  l-l  HAR  KOEBT  "  i  Hh|ff  C  J 
1 600  FE  -PE  -A  t  E  J  (  G  >  -  1  t  )  LC  C  >  -O  t  SY<  C  >  -O 
L@ lO  GOGUS 600 1 0 1  GOTO  1 64 o 

1 6S0  Pfi ! NT - BtT  1 T  @U0  £R  AF6LAAE T - i 60SUB600 1  O 
L630  B-B  +N@f  C  J  4 1000  5  GOTO  1 500 
1640  FOR | -  I  TO  tO 

1630  EF IL<  I  J  -  ITHENMEt  I > *ME<  1 >-|  NT(  Rr®<  1  1*4  i 
LEBO  EF  EL(  t  ?  -OTHEKMEf  I  >  -MEI  1  )  ♦  INTf  RNO'  I  i  44  >  *4 
1670  [FHEl  I  X  ITHtWEf  I  >*1 
teøo  tFMEi  |  i  ?3DTM£ISHE<  H-EO 
L  690  SYC  |  i  -D 

t  700  EFRr«(  t  >  >  ,  ØTHENSYf  E  5  *  L  :  3  LS  I  >  -O 
L  7  IO  NEHT! 

t  7E0  I FSL -  I OTHE  I®  0  SUB  L  O  t 1 0 
1730  FOKE33E7a,E3 

S  740  PP  I  NtCHH*<  0  5  J1  CHR*^  14  >JCHR*<  9>  tPETLJHN 

3010  t*RrC( -T E J (FDRJ- LTOiO 
3030  R£ADHN*<1  |  }  I  tLf  I  I-0J.SY{  I  >«0 
3030  r®KTl 


L4  Soft  Special 


Programmer; 

Saml  lige  aftrykte  listninger 
ei  afprøvede  føi  oftenthg- 
gøreise  Forlaget  betaler 
skattebil  op  til  1000  kroner 
for  godkendte  læserpro¬ 
gram  mer.  Forlaget  har  ret  til 
at  aftrykke  godkendte  pro¬ 
grammer  i  bladel  ag  aftent- 
hggpre  dem  pd  andie 
lagermedia 


HaruChi  lhavwr* 


lance. 

Hvis  spillerens  økonomi 
skranter  tor  meget,  kan  spille- 
ren  optage  et  lån,  men  der 
må  selvfølgelig  betales  ren- 
ler.  Nær  sæsonen  er  færdig 


udbetales  en  sæsonbonusr 
alt  etter  hvor  mange  løb  spil¬ 
leren  har  vundet,  Vinderen 
tår  et  kys  af  Dronning  Margre¬ 
the.  Woww  .  . ,  n 

Andeis  Møller  Sørensen 


304  ø  ØATA  4  I  LUE  URO 
3043  ØATA'J^Q  -.kCSAN 
3030  ØATA--AST  - 
5033  ØATA'tCIENØE 
3060  GOSUBIØOJO 


*  ,  -  ELLCU  -AT  "  ,  -  ILACK 
■ , ‘-JASCD  "  , "LØSER 

■  ,  ■  I0T  -00  "  ,  '-O* 


3070  PØKE  392BO , □ 1 PØK  E  335B I  r  0 
3000  P8lNTCHR»<  ]4?JCHR*(9> 

3ø3ø  c rJHj t  ■ . j—n-  t  n  t  T  havn  B'/Mns 

3033  P«  1  NT  -  J-  *  tFLEISK  MM* >  >  12THCN3090 


’flCK 


5100  A"  !NT(  RKfH  I  ) *  10  >  +  1  A  >  "  1 
5110  EH'QiF DR  I ■ 1  TØ | O 
3  ISO  |P£J<  I ?- IThENÉH-Eh*i 
3130  rCMTI 
5140  IFEHi 4TMEM3100 

3130  IFEH  >4THEKFØR1  *1T010:EJ<  11  * □ 3  NEMT E i GØT03 1  DO 
3  lGø  FØR  E ■ I  Tø lø 

3  I  Tø  REnØTBH  I  >  i  TS*  1  ?  -IW  RNOf  1  >  ■  19>+É 
3100  r^KTt 

3100  ØATA-PAA  VKøveø  I  PavRAnF  4  ,  "PAP  I  I  LLU+C  [  RAvBAisC " 

5500  DATA  4 FAA  rDEMSE  I  WVBflH;-, ‘PAfl  4APHUS  | RAVBAKE4 

35  10  øPtB-RAA  -MfiRLØT TENLUND  |  RAV BAKE  *  *  4  P  AA  /'T'KØEB  1  N6  — ALSTE R 

3220  ØATA — ERØVPOEFVEN4 *4PPA  4ALBØRD  1RAV6ANE4 

32  30  OA  TA  4  PA  A  |  JRÉVÉR5  RØV  |  R  AV  BANE  '  ,  -  ~ERB  Y 1  ET  4 

3240  Q]MCF<2*4> 

3230  POR  3 -ITøeiFøra- 1T04 
3560  REAOCFt I *A) 

327ø  ICHTfl  *  ] 


32 Sø  OATAØ  r6  ,3,  14 
3230  DATaj ,7,3,4 
3300  V-33S46iP£’*lQØøDO 


5310  SP“0 i SL"C : PL"0 i HL"0 :  LS"0  i  LC"0 


3320  LI “øfLe-ø:RF-ø!RT-ø=RS-ø=RP'ø 
5330  RR"ØeR1"ØiR2*0 
3370  RETURN 

3360  PRINT'  JBBf-ø  KAN  P  GA  *  ØE  INTERNATIONALE  REGLER* 
3330  PRINT4 IKKE  kOÉ8E  FLERE  HESTE  4  i  RETURN 
3510  B-QtFOR] *43132T040IG4 


I  RAVBANE  4 


3320  PEAØR  IPØK.E  |  ,A3  B*B*A 
3330  rCRTI 

334ø  IFHO3534THEM’RtNT'0ATA  GRftØR  |  5340  4  3  END 

3350  ØATA 1 20  r 163,40, 133*1 , 169 ,0  P I33,9B ,133,100* 163 ,20B, i  33, BS , 16B *4ø  ,  133,  lø! 

3360  ØATA 162, 16, 160 *0*  17?  ,3B  ,  143 , 100,200,203,249,230,39,530,,  101  *202,206  ,242 
3370  ØATAI63,35 , 133, I ,06,36 

5380  S  YS  49  I  55  i  PøK.E  332  72  ,  t  P£  E  Kl  5  32  72  )  AKD24  □  >  DR  I  5 
5390  B"D l FORJ ■ 1 TQ22 
3BOD  REAØC  t  6“B  +-C 
3610  FØR [-0T07 

5620  RERDA  i FøKE 1226S+ I +C*8,235-A 
3630  B"B*ArtÆXTI  ,  J 

3640  IFB* >2004 L THENPR 1 NT'DATA  ERROR  1  36404:E+C 

3630  ØATA l)9,ø, 129  *  193 , 1B3 ,531  * I  02 , 133 , 123 

3650  DATA ] 05 ,0 , 24 ,60 ,90  *196, 105 ,60*54 

3670  DATA | 12 ,Q, 7, 13,24 ,46 ,99  r 136,200 

3660  DATA  127,0* 129,1 95,97 , 49 . 153,77, 13 

3660  ØATA I  54 ,0*0 ,554 ,535* 131  ,  l3l  ,  k3i ,233 

3700  ØATA  LøB , Ø ,0,96* I  12, 15D  *  103, 103,36 

37 1  O  ØATA 1 | 3 ,0  *0 ,3 1  ,3  19,546  ,  |65 ,34 ,33 

3720  ØATA 123*0,0,546*552,4 ,D,ø*24ø 

3790  0ATA155  rQ,ø,2ø7 ,20? ,204*204,204 ,207 

374ø  øATA I  16,0,0,231 *231 , 102 , 102 , 3  02,231 

3730  ØATA9B ,0 ,0  *243 ,243  ,31 ,31 ,3  I  ,243 

5760  DATA  I  17,0,0,240 ,24ø , Ø *0 *ø ,240 

377ø  DRTA97,2øø ,166,99,49,24 ,13*7*0 

5760  DATA  1 16, 13,77, 133,40,97, ! 93, 126 ,ø 

3730  DATA | 03 .233  *131*131*131 ,131*131,0,0 

3600  ØATA 106  * 96 , 96,96,96 ,36*95 , 0,0 

36  3  O  DATA  15 1 ,3 1 , 43 ,4S ,32 ,33,31 ,0*0 

3020  DATA  1 1  I *552 ,12*12,1 2,232 ,24? , 0*0 

3B30  DATA  107 *207, 192, 162 , 192*192* 192,0,0 

3640  DATA  I  14 ,231 , lø£, 102, 102  *  I09 , 103,0*0 

3B3ø  ØATA1 10  ,243.48 ,40 ,46,243,243*0*0 

3850  ØATA 120, 240, 46 ,48 ,4B ,240,240 ,0*0 

3B70  B-0:FØR E-704TO766 

3BBO  REAOA3POKE ( ,A:B-B+A 

36  BØ  KXTI 

3900  tF6<  >3ø23Thei^,P  INT*ØATA  ERROR  I  5900  "i  END 

3610  øATAø, 0,ø, 0,O, 0*0, 0,0, 0,2, 0,0, 1 ,0,0, O, 224 ,0,0,240,0,1*144,0,1 ,240,31 ,233 

3620  DATA20B, 127,233 ,206* 191  ,235 ,192*191 ,233, 162* 136,233* I2B, 132, 4 *0*2, 2,0, I , 1 

3930  OATAø,2,2,ø,4 ,4 ,0,6, 6, O, O, 0,0 

3340  B "0  i F 08  I ■ B 32 Tøfl 94 

3630  REaøaiP-OkEI  ,fl  JB-B+A 

3960  ICKTI 

3S70  IFB<  ?997THEM:,R  INT4øATA  ERROR  1  367ø'tEr<) 

3960  OATAO, 0,0,0,  16,0.0.36,0*0, 16,0*0,33*0*0*  Iø4  ,□*□  ,244,0,0*  192,0*1  *128,0,0,64 
3990  DA  TAO , O , 92  *0,0,16*0*0*  92 ,0,0, 64, 0, 0, 0,0,0, 0,0,0, 0,0 , 0, ø, 0*0*0 *0*0, D, 0, 0,0*0 
BOøO  PØKE204  0 , 1  l  i  P0«,E2ø4  lrp:  PØKE204S  ,  |  1  i  PØK  £204  3 , 13  3  RETURN 
7ølø  POKE53272  ,<  PEEFC  39272  JAH0240  )'ØR  12 

7020  A*. - - - .  —  * — - 

7090  9*--  LUUUUlLLLUUllULUUI.lL1.imLlHtf 

7040  ctf'  A’r^JI  J-ID«*4I 
7030  Pft|NT-J-f 

7060  PØKE  3  3260 ,101 PØKE 3  326  I  *  1 0 
707ø  FOR [-1T05 

7060  AUNTi;  FM3+  U  *  13  i  *  i*  PØKEG46  ,A  =  IFA-  100RA-3T«EN7øBa 
7øgø  PR  I NTA* f 

Tløø  A  ■  ]  NT-t  RrC+  |  )t]S)H  i  PØK.E646  ,  A  E  SFA-  100RA-3THEN7  100 
7110  PR  [NTB*1*  i  NEKTI 

7120  PR  I  NT  4  p”  I  C*lC»f  081  D*lø*J  0* 

7130  FOR  |  w2Tø  IB  i  PØKE  t433+  I  *40 ,1013  PØKE 33727+  C  *4ø*  i  ilEXTI 

7140  RETURN 

10010  FOR  I ■ lTO 10 

10020  HET  I >• IN T< RND<  1 >*2ø ) + I 

10030  HSf  1  > "  INTC  ft(43C  1  >*3  >  +  3 

10040  MV<  I  >*HSC  I  )h20ø0C 

10030  T6c 1 1- |HT+ RrCi  t  > *  16 1+2 

kOOED  hEKTI 

10070  6l ■ o  s  re turn 

10(10  PfilNT-^JBi'TAet  101-WFAÉ50NÉN  ER  5LUT.4 

IQ120  PR  tNTTA6*IO> — U  5CØREØE  4 t SF  I  ‘SAESØKPØ INTS .  4 

1DI90  I F  SP  1 1 30  TmEnB ■ 300 

10140  IFEF7I 15 THE  KB« 130 

10  I  30  I F  SR  >  1  øø  TH-ENB  ■  1 20 

10160  I F  6P  170  thE+B  ■ I øø 

3  0  3  70  I FSR >30 THE  NB- 7ø 

10160  IFSP< -50THENB-30 

lOlSø  PR  INTTA8*  10>’Mt“IN  SAESøFBGNUS  ER  O4  3  B  *  I  000 
10200  PE"P€+G*1000 

10210  PRENTTAB*  ID)  *1  RYK  B_“|  r-J^'  f G06U66Q060 

10220  PR  I  NT-  J- 

1023D  G0SU610D10 

1024O  SP-0«SL-0 

.10230  RETURN 

103  ID  RRIWT*J«TAE(  lø)4JBHJ  ER  GAAET  FALLIT* 

1 0S2O  PR1NTTA6(  iø> '^YT  SPIL  -  i  i  Q0SUB60060 
10325  PR  ENT  *J.*  t 

30330  IFA4" 4 J " THEKRUN 

10340  I F  AR ■ 4  N  4  TkEfBok  E33290 , J4  1R0KE332B]  ,6iEND 
10330  Cø Tø  103  j  ø 

ia4a3  PHIMT'.at  i  UDTADET  Si  SYG||" 

104  10  HL  "O  t  S  "0 1  PR  INT  4  B/A-VN  4  TAB$  1 3  )  4  SH  HTTRK.E  “+CR51  XAERØ  1  HT 
10420  EH" Iø3  FØR  E • 1TO 10 

10430  IFEJt  I  }mØTHEKCH-£Hi-  I  i  ØQTO  10330 

10440  PR  I  NT  *  t|”  J  HNft  [>M  IFILM  1  ■  I  THE  M*L  "  Hl  +  I 

10430  |F  I  i  I  OTHÉNPR  INT  4  -[M00TØI047D 

104 60  PR INT [ I 

10470  PRINT4  4HS<  l>J 

10480  IFHEt  I >(  IøTHEkBREnT"  4 t HE<  E 1 i  toøTO 10300 

10490  PRINT4  4HE(  li  i 

10300  )  FHVt  I K  lOøøOøTHEKpRlNT-  4  I HVf  I J U GOTø løs lø 
10303  PR  1  MTHV<  I  i  t 

10310  1  F  IH  11-1  AKDSYC  I  )  ■  DTHE  K*»R  I  NT  4  B  L  'J 
1032O  IFSY(  I  1 » I  THE  K^R 1  NT ” B  S4f :S-S*1 
10323  PRINT 
1039D  PERTS 

10340  PR  I  NT  ■  BBSPNT  A  L  HESTE  DER  ER  (JØTAQET  *1HL 

iø33ø  fieruPN 

10610  G06UB 10403 

10B2O  IFHL< "3THENB0SUBL07SD 

1 0630  1 FHL - 4  THE  N305UB 1 08 1 ø 

1G640  1FA*" 4 1 AKDA" 0 THEN 106 10 

10530  RETURN 

107  |0  PR  I  NT  4  UK  NØ  TAS  T  NR  PAA  «E5T4 
10720  PRINT-ØER  SKAL  LøEBE  4  <  ‘ 605UB6ø05ø 
10730  lFA>løøRA^0THEKPRINT-O!Em4  i  SOTØ  107  tø 
10740  IFA-øAKDAR" 4 “AKOHL "3THEN1 0790 

10730  1F£J< A>-øTHEi^fitNT--u  EJER  IKK E  DETTE  Kft , 4 føø6u66øø 3 O tøøTø ] 0790 
10760  IFIL+ A>*3TREKFR ENT4  fcESTEN  ALLEREDE  UDTAGET, 4  i G0SUB600 lø lØOTØ I079D 
10770  1F6Y(  AJ"iTH£r^fi ENT'  IE9TEN  ER  SYG . * t 5D6U66DD10: OøTø LD780 
10760  ILf A  >  *  1 
10790  RETURN 

LOB  10  Pft  ENT  ■  M-.KO  TAST  ISA  PAR  h£ST4 

1092G  PR  I NT 4 ØER  SKAL  STAA  OVER ' J i GØSUBGØOSO 

10B30  IFAt  *ØøRA>løTHEM>fl  INT -CI334  i  CøTø  |02  j  ø 

10940  IFEJ(  A>"ØORSY<  A  )"10RIL(  A  J  "ØTHEkPR  ENT-fTOØER  E  FORVEJEN  ØVER  ,  14 1  GOEuBGØO  køi  Q 
O  Tø  i  0860 
1G950  IL<  A  > "O 
19960  RETURN 

GØØIØ  FØR | * | TØ  1000 ■ n£kT t 
60020  RETURN 

60080  I*"44 Iflf-'-lfl-OI IKPUTI8 
60 070  A-VALC  1«> 1A«"LEFTK  I** | > 

60090  RETURN 
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I  dette  Commodore  64  mate¬ 
matik  program  får  du  bereg¬ 
net  takullet  at  et  stort  tal  Prog¬ 
rammet  benytter  sig  al  logarit¬ 
mer  til  beregningen . 

I  linie  70  defineres  titals  logarit¬ 
men,  som  ikke  findes  som 
standard  funktion  på  de  fleste 
computere. 

Linierne  80  og  90  nulstiller  de 
variabler,  som  bruges  til  at 
summere  de  beregnede  tal .  I 


linierne  fra  1 00  til  1 40  indtastes 
og  undersøges  del  talr  som  fa¬ 
kultet  ønskes  beregnet  af. 
Hovedløkken  ligger  fra  200  til 
240.  Den  beregnede  værdi 
omskrives  og  udskrives  i  linie 
300  til  4 1 0.  Fejludskrifterne  lig¬ 
ger  Ira  1000  til  2000. 
Programmet  kan  let  omskri¬ 
ves  til  andre  maskiner, □ 

Torben  Bang 


10  PRINT-U":  REM  ***  SLET  SKÆRM  *** 

£0  PRINT 
30  PRINT 

40  PR  I  NT J'  FAKULTET  MED  STORE  TAL  " 

50  PRINT 
SO  PRINT 

70  DEF  FN  L  1 ØC  X  > “LOGC  X )/LQGC  IO> 

80  EXSUM-0 
90  MAN3UM-0 

100  I  NPUT  "  INDTAST  N  (,;N$ 

110  IF  N$=-STOF"  THEN  END 
120  N=VALC N*> 

130  IF  N  <  O  THEN  1OD0 
140  IF  N  O  INTC  N)  THEN  2000 
150  PRINT 

160  PRINT  **  TAL  OK  BEREGNINGEN  BEGYNDER  NU w 
170  PRINT 

190  PRINT"'  VENT  ET  ØJEBLIK  * 

£00  FOR  X  =  l  TØ  N 
£10  L  =  FN  LiCK  X> 

££□  EXSUM-EXSUM+INTC L) 

£30  MANSUM "MANSUM+L- INTC D 
£40  NEXT  X 

300  EX-  EXSUM+ INTC  MANSUM) 

310  MAN-  1 0 1<  MANSUM-  I  NTC  MANSUM  )  ? 

3£0  MAN-C  INTC MAN* 10000+0-5 >>710000 
400  PRINT 

410  PRINTN;  *  FAKULTET  =  H;MAN;W  E  %*EX 
500  G0T050 
1000  PRINT 

1010  PRINT"  ULOVLIG  VÆRDI  N  SKAL  VÆRE  POS." 

1 OHO  GQTQ50 
£000  PRINT 

£0  10  PRINT""  ULOVLIG  VÆRDI  N  SKAL  VÆRE  HELTAL* 
£0£0  GOTO 50 


■  Amrace  er  et  racerbilsspil 
for  to  kørere.  Kører  1  styrer 
med  X  og  Z,  accelererer  med 
C  og  bremser  med  V.  Kører  2 
styrer  med  .  og  ,  accelererer 
med  /  og  bremser  med  \  . 
Hver  gang  man  har  kørt  en 
omgang,  fdr  man  et  point. 
Hvis  man  kører  ind  i  kanten, 
skal  man  starte  forfra..  Selve 
kørslen  foregår  meget  mere 
naturtro  end  sædvanligt  da 
bilerne  udnytter  Amstrads 
mulighed  for  at  køre  fra  pixel 
til  pixel.  I  stedet  for  det  sæd¬ 
vanlige  -  et  tegn  eller  8  pixel. 
□ 

Claus  Thorsen 
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510  CL S 

520  PEN  1  ■  FOR  x: 
52ø  RETURN 


1  TO  5  PRINT  ?.$<  x )}  HEXT 
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5  DBF! HT  R-Z 
lø  SYMBOL  RFTER  32 

1 5  SYMBOL  fiSCt " "  > ,  £55 , 255,255,255,255,255 , 255 , 25 5 

20  SYMBOL  255 ,  &X 1 1011  ø  1 1 ,  &X  1 1 131 1 1 1 , &X i l 0 1 1  @  1 1 ,  &X  1 1  øøø ,  82 1 1 0 1 1  ø  1 1 ,  &X  11111111,  &X  1 
101 1  ØH,  &X  lløøø 

3ø  SYMBOL  254 ,  &X  1 1  øøø ,  8X  H  ø  1 1  øø ,  8X  1 1 1  øøøø ,  &X  1  ø  1 1 1  ø  1 1 ,  &X  11011101,8= X 1  øø  1110, 8=X  1011 
1 , 8=X  liøl  ø 

4ø  SYMBOL  253 , 8=X  1 1 1 0 1 1.1  ø , 8X  1 1  lø  1 1 1  ø , &X  1 000 1 00 ,  &X  11111111, 8=X li.  1 1 1 1 1 1 , &X  1 000 1 00 , ZX 
inølllø,S,Xlllølllø 

50  S YMBOL  252 , fcXll 0 10 . 4X 1 0 1 1 1 , S=X  1  øø  1 1 1  ø , &X  1 1 0 1 1 1  ø  1 , 8  X 10111011, &X  1110 000 , S=X  1 1 0 1 1 0 
0,8X11000 

6ø  S YMBOL  25 1 ,  8<X  1 1  øøø ,  &X  1 10 1 1  ø  1 1 ,  S.-X  1 1 1 1 1 1 1 1 ,  &X HØ  11  ø  i  1 ,  8=X  11  øøØ ,  8=X  11 0 11 9 M ,  &X  1111 
1111, 8X1101  1011 

7ø  S  YMBOL  250 ,  8X 1 0 1 1  ø  øø ,  &  X 11101  øøø ,  8= X 1 1 1 00 1 0 ,  8X  1 0 111. 0 1 1 ,  8X  1 1611131 ,  &  X 1110 , 8:  X 1101 
1  ø ,  ikX  1 1  øøø 

Sø  SYMBOL  249,8X1110111,8X1110111,8X1  øøø  1  ø ,  8=X  1 1 1 1 1 1 1 1 ,  fcX  1 1 1 1 1 1 11 ,  &X  1  øøø  1  ø ,  &X  1110 
111, &X 1110111 

90  SYMBOL  £43, &X i  1 øøø ,8X11011 0 , 8X1 1 10 , 8X 11011 10 1, 8X 101110 1 1 , 8X11 10010,8X1 1101 øøø 

, 8X 1011 ØØØ 

tlø  INK  1,9 

12ø  MODE  1 

13ø  GOSI JB  45ø 

14ø  RES TORE  ISO 

150  FOR  i =1  TO  S ■ READ  x< i >,y< i >=NEXT 

160  DftTfi  ø, 1, 1, 1, 1,0, 1,-1, 0,-1, -1,-1, -1, 0,-1, 1 

1 70  x  1  »22*  16  *  s  1= 1 3*  1 6+4  =  retn i n9 1  *7  *  x2=22*  16  =  y  2»  1 2*  1 6  =  retn  i n92*7  =  fart  1  =  1  <  fart2=  1 = 

180  LGCATE  1,1= 0x1=352  =  os  1=208 ■ 0x2=352  =  t>y2=2øS 

1 9ø  U I NDON# l,15,3ø,lø,lø  =  PEN# 1,2  =  TØG 

200  U I NDON# 2, 1,40, 1 , 1 

205  PRINT  CHR*22>iCHR*<l>j 

2 1  ø  v i nder  1=0  =  vi  nder 2=0  =  MO VE  21*1 6 , 400- 1 1  *  16  =  DRØN  21*16,400-15*16,2 

220  NI NDON  SNAP  1=CLS  =  PEN  3  =  PRINT  Point  1  ■  =  PEN  2  =  PRINT  Point 2.:  =  NIHDON  SNAP  1 
230  UHI LE  INKEY*<  >" " = NEND 
24ø  fl*=INKEY* 

250  I F  THEN  r-etn  in91=  ret  n  i  n9 1  - 1  =  I F  ret  n  i  n9 1  =ø  THEN  ret n  i  n9 1  =3 

26ø  I F  .?$=":=<: "  T  HEN  ret  n  i  n92=ret n  i  n92- 1  =  I F  ret  n  i n92=0  THEN  ret n  i  n 92=3 

270  IF  a$= " , "  THEN  ret  n  i  n9 1  =retn  .i  n9 1  + 1  =  I F  retn  i  n9 1  =9  THEN  retn  i  n9 1  =  1 

280  I F  a*= "  z "  THEN  retn  i  n92=ret  n  i  n92+ 1  =  I F  ret n  i  *92=9  THEN  retn  i  ,192=  1 

29ø  IF  INKEY< 62  )=ø  THEH  fårt2=fart2+l 

3øø  IF  INKEYC55  J=ø  THEH  fart2=f*rt2-i 

310  IF  I NKEYv 30  >=ø  THEN  fartl==fartl  +  l 

32ø  IF  INKEY<22  >=ø  THEN  f art  1  =f ar  t  i - 1 

33ø  x  1  =x  1  +x(  ret  n  i  n9 1  >*f  a  r 1 1  =  y  1  =a  1  ~y  <  r  @t  n  i  n9 1  >*  f  a r 1 1 

340  x2=x2+x<!  retn  i  n92  >*f art2  =  y  2=y  2-y  <  retn  i  n92  >*fart2 

37ø  IF  TEST<xl,sl >=1  OR  TEST< xl+15,s 1-15 >=1  OP  TESTI xl , y 1-16 >=1  OP  TEST< xl+16, y 1 
>- 1  THEN  SOUND  1,0, 2øø ,4, 1,1, 1 = UH  ILE  SGK  1 »1 27  =  NEHø > v i nder 2= 1 

380  IF  TEST<  x2,s2>=l  OR  TEST (.  x2+ 1 5 , y  2- 1 5  )= 1  OR  TESTC  x2,  s 2- 15  >=1  OP  TEST<x2+15,s2 
>= 1  THEN  SOUND  1 , ø , 200 , 4 , 1 , 1 , 1 ■ NH I LE  SQ< 1  > >127  =  NEND  =  v i nder 1  =  1 
385  IF  vinder 1=]  OR  vi nder 2=1  THEN  433 
390  MOVE  ox  1 ,  o-j  1  =  PR  I  NT  "  " 

4øø  MOVE  ox2,  os2  =  PRINT  " 

42ø  PLOT  x 1 , y 1 , 3  =  oxl=xl = os l=sl= PRINT  CHRS'  256-re tn  i n9 1 > i 

430  PLOT  x2 , y  2, 2  =  ox2=x 2  =  o» 2=y  2  =  PR I NT  C  NF  s,  256-ret n i n 92  > ; 

431  I F  x  1  +RBS<  fart  1  > >2 1  * .1 6  AND  x  1  <  =2 1  *  1 6  RND  y  1  < 400- 11*16  RND  y  1  >400- 1. 5*  1 6  THEN 

I F  fart  1  *x  1  < =0  THEN  v  i  nder2=  1  =  SOUND  1 , 2øø ,  3ø  =  GOTO  435  ELSE  Point  1  =P  o  s.  nt  1  + 1  =  U I  NDO 

N  SNAP  1  *  CLS  =  PEN  3  =  PR  I  NT  P  o  i  nt  1 ;  » PEN  2  =  PR  INI  P  o  i  nt2  .=  =  N I  NDON  SURP  1 

432  IF  x2+RBS<  f  art2  »2  i  *  1 6  RUD  x2<«21*16  RND  «2<4øØ- -11*16  RND  y2MØø~l5*16  THEN 

I F  f  ar  t2*x  £  <  =  0  THEH  v  i  nd  e  r  1  =  1=  SOUND  1 , 2øø ,  30  <  GOTO  434  ELSE  Poi  n  t2=P  o  int-2+1 :  NI  NDO 
N  SNRP  1  =  CLS  =  PEN  3  >  PR  I  NT  P o  i  nt  1  .=  =  PEN  2  ■  PR  I  NT  P o  i  nt2 i  =  N I  NDON  SURP  1 

433  I F  vi  nder  1  =  1  RND  v  i  nder  2=  3.  T  HEN  x  1  =22*  1 6  =  y  1  =  1 2*  1 6  =  r  e  t  n  my  1=7  =  far  1 1  =  1  =  x2=2£*  1 

S  =  y2=12*16  =  r-etm  n92=7  =  f  art£’=l  =  Pointl=Pointl-l  =  Point2=Poi nt£-l  =  GOTO  £  1 0 

434  I F  v  i  nder  1  =  1  THEH  x£=£2*  1 6 1  y  2=1 2*  1 6,  =  retn  i  n92=7  =  f  art-2=  i  =  P  o  i  nt£=P  o  i  nt2- 1  GOT  O 
210 

435  I F  v i nder£= 1  THEN  x 1 =22* 16  =  y 1 =1 3 *  1 6+4  - retn i n9 1=7  =  fart  1  =  1=  P o i nt 1 =P o  i nt 1 -1 =  GOT 
O  21ø 

44G  GOTO  24ø 
45ø  DIM  a*( 25 > 
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Brugerprogram 


■ 


HCT 

KamChr  Tnavv 


■  Masterfile  er  navnet  på  det¬ 
te  kartoteks  program .  Det  star¬ 
tes  med  en  hovedmenu, 
hvorfra  resten  af  programmet 
kqn  køres.  Det  er  selvforkla¬ 
rende  da  man  bare  taster  det 
ind.  programmet  spørgeram. 
Filerne  som  indeholder  den 
indtastede  data  (navn + firma 


+ disk  nr .  på  et  program),  kan 
save 'es  på  diskette  men  pro¬ 
grammet  kan  konverteres  til 
tape. 

Her  følger  en  kort  beskrivelse 
af  de  let-overskuelige  proce¬ 
durer  som  er  brugt  i  Masterfi¬ 
le:  □ 

Christian  Ravn 


Masterfile 


linie  10-99?  i  Selve  hovedprogrammet  som  kalder  de  pagelende  procedurer, 
lime  1000-199?  :  Frocin  klarer  indtastningen  af  data. 

:  Procout  klarer  udskrivningen  af  data  pa  si  arm  eller 
spørges  om  hvilket  data  der  skal  udskriv«,  (navn/f irma 


linie  2000-2999 
printer.  Der 
/di  so/al  ti 


linie  3000-3999 


lime  4000-4999 
lime  3000-599? 


■  Froes ave  ser  ger  for  at  filen  kan  Pli  ve  gemt  pa  disc, 
i  PrDcload  sorger  far  at  filen  kan  blive  hentet  fra  disc, 
j  Pr ot sort  sorterer  filen  enten  kun  efter  navn*  el -er 
efter  navn/f irma/dtsc  med  disken  som  1. prioritet  f alende  til  navnet, 
linie  6000-6.99?  :  Pr  ocguit  stopper  programmet  for  altid  1  IFX200. 2J , 
linie  BOOO-8999  i  proenew  vil  initialisere  en  ny  fil. Det  skal  du  altid 
gere  inden  du  save’r  en  NY  fil.  Ikke  nødvendigvis  hver  gang  du  save'r. 
lime  9000-9999  i  Frocinit  klarer  Pare  nogle  enkelte  variable, 
linie  1 0000- 109??: Frue menu  skriver  hovedmenuen  ud, 

lime  II 000-11 999 ;FroctOP  skriver  At  ud  pa  en  sjov  made  øverst  oa  skstraen 
nar  der  er  brug  for  det. 

lime  l2000“129??:Fraeswaci  laver  en  trekantsombytning  af  to  s*t  data*  Den 
kaldes  i  sorteringsrutinen,  hvor  den  bliver  brugt  mange  gange* 
linie  13000-13???: Frocborder  tegner  et  bl  at  felt  i  mode  ?  alt  efter  de  tal 
den  far  derfra  hvor  den  er  kaldt* 

lime  14000-1499?:  Froespace  venter  p-a  Space-Par.  hvorefter  den  kører  til 
hovedmenuen* 

lime  15000-15???: Pr oede!  et e  vil  kunne  slette  et  indtastet  program  i 
f i  len* 

lime  I60O0-16??9;Frocprinter  spørger  om  printeren  skal  bruges  og  i 
pekraf tende  fald  om.  det  er  parallel  eller  seriel  +  hvilken  baud-rate. 
linje  17000-17999: Proet ab  udskriver  navn+f i rma+di sc  tilhørende  det  tal  som 
f clger  med  ned  i  proceduren,  pa  en  p*n  made, 

linie  18000-18???:  Froc  am  nvend  hj*lper  dig  med  at  rette  i  en  indtastet  fe.,1* 
linie  19000-19999:  pracnewl  me  venter  pa  tast  fra  Space-Bar  men  retunerer 
ikke  til  menuen  men  derimod  fartsetter  kun. 
lime  30000-30999;  Froc  fejl  skriver  den  fejl  du  har  begået. 


Christian  Ravn 


se 

40 

ao 

60 
70 
65 
TO 
]Q0 
3 1  C« 
3  20 
130 
145 
136 
1*6 
170 
1B0 
190 

210 

9“ 


REN  Hjstprf  ]  L  F  tJ..' 

REM  — - - - - - - 

FÉM 
rlOEÆ  7 


IC? 


F?:PCIN!T 

0«  ERROR  FROCFEJL 
FfcOtMÉNU 

R’EREAT  6  ■  BE  T  -  46i  UNT  ]  L&  i'OAHK  10 

0n  &  &QSUB  126,  1  JO,  140,  ISO,  140,170,  100.  1^.200  ELSE  F  FdCf É JL 

&0TD  90 

FRQCPUTi RETURN 

PflOCHWEND:  F-ETLfRN 

PROCDEUETEi RETURN 

PMClOAD:  RETURN 

PftOCSfiAffi:  RETURN 

PP0CF4U :  RI  TURN 

FBOCSORTi RETURN 

FftOC  1«:  RETURN 

RF'OCPU  IT t RETURN 

END 

REM - - 
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100*  ØEF  FfØClN 

lølø  PflOCnDPfIhCTASrHlNGHf 

1020  f:V.»Mfl3EX 

103*  PRiHTTAB(3,  1 3 !  e  SF  C  (36  ‘  5  TAB  !  “.  £9? :  SFC  !  29> 

1**0 

lOfl*  PfilKTTABlØ,,!*!  £"  HAV«  FIRMA  EISK* 

1069  IHPUttAE -3i  1 1  >  i  “ "HftfCH : TAB( 1D.  i  I )  [ "  HF I Etit  it:\y  1 T  AB C32*  l 1  ?  t  ■  -D19C51RU 

1070  HA3*^tVU:>6 

i  OSO  PflIHfTTABH3.  Ifl!  :HE0  ti  17  ’i  tGf«GE»?  t  IF  GS="J"  ØF  &*-%“  THE«  3030  ELSE  IF  G*"’H"  OP 
0?*“n“  OF'  A6C(G1?-13  TMEN  1390  ELSE  308* 

1090  eheprcc 

1W  REM-  - - - 

2000  KP  PRØCOUl 

2010  PJ^Tt*5' "UDSKRIFT"' 

2020  (FHflX.i*0  T HEN  PfilHTTABtlv*  101 :  "Fi  l*n  *r  tam*  "  :G0T022iø 

2030  PRQCBDRDCf:  £  I O  ■  19,  li*  5i 

20*0  PfiIt)(TTAEU3.  1()  ["ALLE-  .....  1“ 

2950  OR  I HTT  S6  S11. 1 2-‘ :  *FF:A  tlA'Jti.  .2* 

2040  PftlHTTAB(13»13>;‘*FRA  FIFHA*3" 

2070  PftlMTTft£)[|3.|4l; 'FRaft  0I5K..4" 

2030  R£FEAT6<BET-40iUHTIL6  OAHDG  3 
3090  f\y."Q 

2100  At«“flLL£  NAYHEFPA  NAVNFRA  F[RNAFRA  DISK" 

21:0  A?*H3P? 'At, BILØ-*, lOf 
2120  RFØCTØP  i  At  i' 

2130  [F&  iTHENPR-IUTTAEilOn  103  sftI&HTtEAf,3: "  :  I  WtiTTAB  d  6.  103  |  BtELSEBt-CtC? 1 27? 

2140  PraCFfilNTERrPPINTTfl^?  i  " NfiL.JN“  ;  TAB ( 20J ;  -FIRMA"  ; TAB (35! 1  "DISK"  'STfilWGl  [3?,"_"3  : 

21 5ii  FOftL7.*4TOl?i  PR  IllTTAB  (O, LX! |  £TR  J  NS* ( *C . -  "  1 1  i  Né  X  T  £  Pp  I  NT  TAB  ( 0 3 !  3  :  F£JF:  LOl  T O  NAi.11 
2160  IF  &*«CHfc*E27>  DR-  ILEFTt  tNAHE?  (LSI  .LENBtl»&*  AND-  E»2?  OR  CLEFT*(F  I.EM*  H.TL  I  .LEMBI>* 
B*  AND  G=3!  OR  (OALPtl*DlSCi(L^J  !  ThEN  FftlNT  TAB(3-LEN(STR*  ILS?  S  >  *  S  i røOCTAB  IL?.}  1FL7.-FL2+ 

1 

2:170  lfsp"  "J"  AND  FL7.=  L  *  TICN  PRgt!*WL I  NE  :  f  L3>*.£  PR  3  NT  TAP  (0,3!: 

7IB0  NEXT  L7. 

2190  ODU  3 

2200  *pt*"" 

2210  FROCSFACE 
2220  O DU 3 
2230  ÉMDPf  ØC 

2240  PEN“  -  ----------- 

3000  DEF  PRKSAOE 

3010  PP0CT0P1 "DEM  FILEN" f 

3011  FlLEt""“:  5T«0:  PRIlfTTABl  10,  10) ;  “NAVN  :  "i  ;REF'EATG«DÉ7 

3032  3FG  wtSANOt  ■  3  ZfcANDST  TTHEHVOUGiFIlE^F  !LE*+CHP*GiST«ST*] 

3013  |F&=l27Tri£K0eilG:FH,Et-LEFTf  (FILET,  (LEHFILEI-I  3  !;ST=ST-l;  ]  F£T  =  -  1  THÉNffT*Øi  VØU22 

3014  LiN  T  3  L&= 1 3 
3030  XH '■OPENUP  ( F  t  L  E?  ? 

3040  0-0 

3050  PRlHT*X7..rtAXV. 

"060  F-€FEAT 
3070  CSpCS+1 

3000  PftlMT»Xi,r4AretiE5>  .  F  Ufrit  ( (20  ,  DISC7.  IC7.> 

3090  UNTJL  CIS- HA*  7, 

3100  CLQSE9X7. 

3110  PBlrtTTABC3,22f;u  Filen  " 1 1  * 1  W£v [ 200> 

3 1 20  ERDFRgc 

3“°9  REJ*-  ------------- 

4000  DEF  PRQCLMP 

*010  PRDCT£JP1HHENT  FILEN"! 

4015  PRlNTTABdO,  10) : “Fil navn?  "f 

4029  FlLE?=rf*:ST=0;FÆPEATfc=G£T 

402 1  1FBJ =65AHD&  =  3  24AMDST  7THEW/EHJG  j  F  ]  lEi  =F  [  LEi  ^CmF.  i  & ;  ST  "-ST  *  1 

*022  1F G" 1 2? T FCNVtUO : f ILE* -LEFT i (FILET* ( LENF [ LE? -  i J  f i ST =ST- 3  i  1 FST  =- 3 TMEN5T-0: VDU32 

4023  UHTtLG-13 
4<'24  ODU& 

4030  KXHDPENUP (FILE*! 

4040  Ci=0 

40SO  1NFUT*K1I,HAX7 
4040  F£FEAT 
4070  C7.-C31+1 

4090  I  rff  UT  lin ,  HAMEt  1C7.  £ ,  F I  Ril*  CC7.1 ,  PI  SC*  tC  V.l 

4090  UNTIL  C51  N0X7* 

4190  CL0S£#3(X 

4110  FfllNTTAB(3,22)jHFiJ«n  "FlLEf"  h»nt tt . “ : I  =  1W- ET ( 3P0 i 
4120  EMDRfiUC 

4999  REN-  -  -  -  -  -  ------- 

5000  DEF  PFiEJCSORT 

50 1 0  PFtOCTOP  1 "  SilPTÉRl  Nt. "  i 

5020  IFHAXIi'O  THEM  FPlMtTABl  10,  103  £  "Fi  3  er,  er  t«!  "  :  l  =  INK£Tf  (3090  ;  EMDFFIDC 
5030  PR  I  NT  TAB  (9*  2*1 :  Priori  Uf  '  TflB  (20!  i  "fl.  .  .0151  ,'F  !F:NA  ‘HAVN*  "  '  TAfe  120!  j  "b.  * .  I  uN  EFTÉFj  NA 
l7N" 

5040  f l 
5050  iFSlS* 1 

50*Cf  DUOETf  iF&ti-B"  THÉN  5250  ELSE  1F  G^'A"  THEN  5079  £L££  G0T0B040 

5070  PRINT' 1 D I.SK/F | F:FU ,J  WAt,  "  1  TfiflJ  !5,  19?  t  “at 

309C  F0RFV.'lTDHAX7.jf-f  +  (  1/3?  SPRINT TAB(0. 19)  :  INT  <*  > 

5990  F0ftN7»lT0F!l 

5ioo  if  nsc^cF1:?  nscctuf  tuen  pfbcsnaf 

5110  NEXT 

5120  NEXT 

5130  FDPFK'lTmflSX:  t-f  *  C I  .'3>  :  PRlnTTApiO.  19! :  3 UH  f  s 
5140  Fflfitl7.“  1  TOFSi 

5150  JF  F I PHt  ( F\ 1  FlFHT  'H:-.'  flUt  CISC!  (Fli!  =t! SCI:  (Uf  TNÉN  FF  DCSWAP 

5140  NEXT 

5179  ttXT 

S 1  Bi'  F0F.fi>  1  TØNA!I7.1  f  +  +  ‘  3 .'  3 !  i  PR  I  NT  TAB  1 9 .  !  7 ! :  I  NT  !  f  ■ 

5190  FØF,:NO!TDF7. 

52'70  I F  NmNE t  £ F\ .  NTiME f  i JI7. }  AND  F3  TNT  F'i'pFlFMI  •  N".  <1NP  L‘ 3 'EIL ',  ( F li ?  wt  1  SCI* ( N".  ■  THEfl 
CSWAP 

5210  NEXT 

5220  NEXT 

5270  PflHITTAPf3*22:  3  "Fiun  £(ir terpe  .  “i  3  “Hit  E  r  ITi  O- 
5240-  ENEfROC 

5259  PPIMT1"!  un  *t  rut/n. " L  TAP (5*  193 ;  “sF  "iNAil. 

5260  FDPf  7.=  1  TCtlAX  V.  t  PR  I NTT  Ap  ( O,  1  1  ;  FT5 
3279  FORHX-ITDFV. 

S2B9  1  f  HANE?  i  FV  HArtEt  ■  N".  ■  T  KEnF  F OC.EWAF 

5290  NEXT 

3200  NEXT 
5310  EMDPfÆC 

5999  FEN-  ------------- 

6000  DEF  PPDCQUtT 
4910  FfMETØFfSLUT"! 

6020  Fftl  NT  TAE  (19,  S  00}  "VjJ  fu  ■.  irneMci  stoppe  '  "  t  <  ØUlTf  »SET1 

4030  IFGU3  Tt*"  3  *  TH£N[Ffi£T*»“3"THSH[FfiETI  *  '  ‘.'“THENlFGETt  -  "2‘  Tn£r.«FGETi  -  "i  ■  ‘ HE !i  t F ii£  1 1  *  TH 
EN60SØ 

6040  IFDU1T*=“J"  THEN  CALL  ?tiFFFC 

6030  lFQU  i  Tl"'‘N“  THEN  ENDPROC 

6040  GOTO  6020 

6070  ENDPROC 

6000  (FX200 

6090  DLS 

4100  STOP 

6110  É-NOfPOC 

6999  REH- - - - 

eooø  def  ppqche;u 
8010 

SO20  PftOCTOPf  INITIALISERE  EN  NY  FIL"! 

8030  FlLft-""(ST-OiPRlNTTAailO,lO>+"NAVN+  “ ■ ' RFPf AT&-OEF 

003:  1F6  -iSAfJDt  »lZb^IKT  1 E  ml  rr.  F  TlE  s  -  F  i  LE  s  »i*  hF  f  6 :  i  T  =  2T*  1 

B  i77  [FG'327THEff/IHfiiFlLE*"LEFTt  F  ILE*  ,  CLEMF I LE4- 1 !  ■  s  £T  =-S  T  -  ] :  I  FST  -r- :  ThENS'T  =  ■  ■ :  LU32 

B077  UMTILGH3 
&i‘4y  jrT>DP£KJUT(FILE*> 
tf.'5'.'  tL0EE4'.\ 

É*0&‘  PRIrpTTAB(3, 22!  £  "Fil  en  IniS  i  itj  ;ertt,  :  [- Ja-it  £  v  ■;<:■ 

ENDPF.-OC 

BV**  REH-  -  - - - - - 

DEF  F'F:ffil]NST 

90i  ø  Dl  k  NflMt?  1 209  ■ .  r :  f  m  t  z->:- >  *  r  i  %z.\  ■ ; 

9929  ridiV*-.":  J:>&:  spie*M- 


Progr  ammer; 

Samtlige  aftrykte  listninger 
er  afprøvede  iør  offentlig¬ 
gørelse.  Forlage!  betaler 
skattefri!  op  til  1 000  kroner 
for  godkendte  iceserpro- 
grammer.  Forlaget  har  ret  til 
at  aftrykke  godkendte  pro¬ 
grammer  i  bladet  og  olien! - 
liggøre  dem  på  andre 
lageimedia. 


I4&30 

14040 

IflOSø 

1*060 

14970 


903ø  I FX 200, 2 
9040  EWDPPOC 

9999  REH -  ---------  -  - 

10000  DEF  FfiOtHENU 
10010 

10029  FftØt TOP f  PERU/’! 

1003*  PFt0CbQPKR(914,2O,lO] 

li)ø*0  PR  J  NT  TAB  ( 12,  7J  s  -UDSKRIV  FILEN.  .1" 

10050  PRt«TTABti2,Blj-ftET  FILEN* _ .2" 

10060  PR  3  NT  TAB  ( 1 2,  9>  [  “"SLET  I NDTAST .  . .  3" 

10070  PR]  NT  TAB  (12*10!  ;"HENT  FEL . 4" 

ItHøe*  FftlNTTAB(12,  11 9 1  "GEN  F  3L.  ..,,,*.  5" 

1*090  PF:|NTTAB(12,  123  |"LA',J  EN  NV  FEL.,6" 
løjøø  PR[NTTAD(12, 3"! j "50RTER  F[LEWr,.7" 
løl  10  PfilNTTAB  (12,  |4)  f  INDTAST  HMM.  . .  B~ 

10120  PRINTT®  £  32,  15! ;  "STOF.  _ *  .  * ,  *  9" 

30130  EWDPPQC 

Hi999  REH-  -  - - - 

1 1000  DE?  PfiDCTØFutS 
lløOS  yDVTxCLS 

UOIC  FQFIX-&  TQl:VGUt(90eiE!<SDe3i:FFiINT5PC[£6-LENl»t]>lV2!4tiCHEitl4*:NEXT 
3 1020  EnDPRUC 

11999  REN-  - - -  -  -  -  - 

32000  DEF  FROCSWflP 

12*1*  DlH«0|SLX£Flt!  IS 

1202*  FU-FIRMJtF'ii 

12030  ni? =nane*  [Fu j  II  Programmer: 

iaSS  f5S*(S?i£;^  IrII  Samtlige  aftrykte  listningf 

3  2060  HA«t  (  f7.j  -  NANtt  ln7. i  I  er  alpict vede  tør  of f entUg- 

120BO  FiRHtufti-Pit  IL  gørelse .  Forlage!  betaler 

1209*  HANE*  Vk  skattefrit  op  til  1 000  krone 

12999  ren-  -  --  --  --  --  --  --  mm  toi  godkendte  iceserpro- 

3K  fif  grammer.  Forlaget  har  re 

1 3ø2*  Y0U31 ,  x , u,  j  32*  137,  j3l,  3i ,  x+a*n*  1 56  1 1  at  aft ry kke  godkendte  pr< 

13040  endprqc  IL.  grammer  i  bladet  og  o!le 

. *-^1  liggøre  dem  på  andre 

1400*  DEF  PfrDCSPfiCE 

i4øoi  vpu3  ||  lagermedia. 

14005  IFipfMHjH  THNPVRRX 

34010  PR  [NT  TAB  (B,  223  £  "TAåT  SPACE -BAR  FØR  MEwU”  ' 

14020  Fl1>0:  FfFEAT  - 

14030  FQRL!>  129*0133 

14040  I F 1 NFEY-99  TICN  L7r=135£FL3"3 

I  **S0  PR  |  NT  TAB  ( 2,  22]  CHftt  C  L Ti  J  t 

L4O60  [=TNF£YIløl:NEXT 

14*70  UNT1LFL1S»  J 

14 OBO  ENØPPDC 

1*999  R£M-  ----------  - 

L5000  DEF  PROCDELETÉ 
15*10  FAøCTØf (“SLET"} 

15020  lFHAX%-0  THEN  PRINT  TAB  (3.0,  1*!  ;  "FILEN  ER  TOT H  "  :  CCT0151 10 
15030  IWPIJTTAEi  (O,  7]  ;  "HVILKET  ]UDTAST  SS'-AL  SLETTES  £“0É 
15*140  Ff  0CTA6  (DE? 

15*50  FfII*Ti_Éfc  DET  DETTE  :Gl=GET? 

150*0  ]F  &1=-N"  THEN  &0T015O3P 
15070  FOF:L=DE  TQnflXX 

150B0  NflNEl  (L J  =hAIC?  1L*1 ! :  FSRMt  (LI  ■FlPN'l  (L4  1  ?  i  D3SC^  (L3  =  DISC7r(L*l  1 
15*90  NEXT 
15100  mSZ'NAXX-1 

131J0  PR]NTTAB(3*22f  “Ft  3  en  Slettet .  "s  I*I»:.ÉV  (300J 
15120  ENDPROC 

1599?  RESN-  -  --  --  --  --  --  -- 
160*0  DEF  PRDCFR1  NTEff 

160*1  FftjHTTABO.B) ;  "Pi^  Printer  —j  £5Pf  IFSP4**N“,0RSP4  =  hn"  THENPRlwTTA£(2*$)  tSPC  (23! 

t TflB (0 , 1 1 : £ ENDPROC 

16010  IF  SP?0“J"flNDSF?<  7 “  j"  THE*  1600* 

16020  sp?=hJ-:FfilNHR6!3*fi!}  "Pir#]  [#)  et,  »rid  ;SP?=&£T?i  lFSFf*^F"CR5Pt  =  Hp"T(CNl650C' 
ELSE  IF  SFf="S"QRSP4--a"  ThCN  16030  ELSE  16020 
16030  lFXi+2 

1 6040  I  NPUT  TAB  1 2, 8 ! :  "Hv  ]  S  ken  6  avi s-r  ilt  " ;  SP7. 

IAO»  IF  9K079ANDSP1E  '  L50ANDSP11  300AND5P5K  l2Wftlffi5P7.  2400HCSP1I  4B00ANDSF1:  9&00AND 

5PV,‘:>3?20<I  THEN  L6O40 

3*0*0  IFSF3-7S  THÉN  »FXB*1 

3*070  I FSFOlJO  Th£N  »FX3,  2 

3*ØfiØ  [FSP7*«30ø  TN£N  tFX8,3 

16090  1 FSPX- 1200  TtCN  IFXB,  4 

3*300  IFSF7>2*00  TtfN  1FX0.5 

16110  IFSP7r=40<i(>  THEN 

3*120  IFSFO(=?*øø  Th£N  *FXB*7 

I66  30  IFSF-O192007HEM  IFXB.  B 

16140  IFX6, ø 

16150  ØDU2 

1*1 60  PR IMTTAB (0*0) } i EwDFROC 
14500  »FX5, 3 
3*320  VDU2 

1*530  FR I NT  TA& ( 0, 0 ! ; ; ENDPRCC 

34999  REH-  -  - - - ------ 

17000  DEF  FROCTAB  (LX,! 

17010  FRINTTAB  (4>  s  HANE?  (L3.3  :  TAB (20!  : F ]  RM?  ( Li'. 3  £  TAB  £3“+(D]$C'.  (L’I  ■  ! :  DISCV.iLV.'  : 

17020  ENDFPOC 

17999  REN"-  -  -  -  -  -  - - 

IBøQO  DEF  PRQLfiMHEHD 
18010  FROGTØP ("RET" * 

18030  3FNAX7.P*  THEH  PRIHTTABdO.  10! ;  "FILEN  EF  TON  !  “  :  DåTOlBlTO 
16030  SNPUTTflB 10, 7 J: “Hvil ket  inøtast  skiL  ratten  3 "DE 
ISX'40  FROCTAB  C  BE) 

1B050  PRINT' "ER  DET  DETTE  '’i :0*^fiÉT* 

ISO 60  SF  Gi="N"  THÉN  &OTDlB03ø 
38070  SNPUTTAfc  14 , £  1 ! " “NN* j 

1806*  I F NN? * "  "  TREN  PR[NTTABi4.  ]1)  :NAH£f  (DE?  £i  INPUTTAB  i  20*  13  fTFl;  ElSE  NAhE?  (DE  ■  *NN1 1  |N 
FUT TAB (20*11?  H*FF*; 

3S090  !FFF(-“"  THEN  PfilNTTAB  C2ø*  Hl  i  FiWIft  DEJ:  :  INPIJTTAB(37,  11! -“DKit  ElSE  FlRf«  COEf  FF*s  I 
NPUTT  AB  (37,  LI!" -DD7*1 

3  B  |  Oø  IFODX-Ø  TFCn  PRINTTAB  (37.  61 !  j  Dl  SEX  (DE? ,  3  KITD'lSl  30  ELSE  CJSC7.  [DE?  xD[ft 
33305  Pft[NTTAB(41 3  1 3  jNAHE? (&E1 ; TAB(30* 1 1 1 [FIRrll :DE 1 : TAB (37, 3  L ! [DISC- (DE? [ 

Jøllø  FRI  NT  T  AB  ( 3 , 22  ?  (  "FiSen  Rtttet.  "?  1=  I  Nk.EVISOO! 


ISOBø 

15*90 


CISC?i(L^l? 


■  I  M  EVC300J 


■n  " ThEnPR]UTTAB( 7, 3! i  SPE  (25? 


;  SF?  =&E  T  ? i lfSFt * “P "CRSPt * H  p “ T  (C  N  L 6300 


3  200ANDSPV.  '  2400WtDSF'I  48øtflNDSF?(  0 60 OAND 


"  ThCN  ENDFFUt  ELEEPRINTTA 


£9115  PPINTTAB  (3,20! :  "Ej-  det  a  srden  ^ "  £ ;  &1 x DET t ; ! F &**" J  "OP B* - '  ‘  T h£N  EnDFPOE  ÉLSEPP3NTTA 

B £3, 20) [STRING? (30, "  " ! ; TflB I  3, 22) 1  STRING? (30, "  " ? : :6GT01Q070 

18320  ENDPfDC 

13130  RflOCSRflCE 

18140  ENDPROC 

1B999  FÆN-  -  -  -  - - - ^ 

19000  DEF  PRQCIffiWLlfC 
lOtJØt  IFsp?  =  " J"  THfN  ENDFfOC 
1903*  LQCAL  FL£,L  7. 

19ø2ø  PR I NT TAB (1 3, 231; "TAST  SPACE -BAR " 

19030  FLJ>øffiEPEAT 

19040  FØRLII«  1 2?TQ )  35 

19050  1FINKEY-9?  ThEN  LH>  1 35 1 FLX-l 

I9040  PflINTTABc2,233CHft*(LX)t 

39070  1  =  1 NHEY 1 lO] 1 NEX  T 

19080  UHTTLFLUl 

1 9090  PDfiL*  4TQ24 1 PP 1 NT  T AB  i øT  L ! } SPC  C 39 ! ; 

19100  NEXT 
|?31ø  ENØPRUL 

19999  REM-  - - - - ' - ‘  - 

20000  DEF  PRGCFEJL 

30001  VØU~ 

30002  FfltNT”  “1  VDU2,3, 3, 3 
30010  PRDCTOPr'F  E  J  f) 

30020  IF  ERFr-222  THEN  FR]NTTAB(0»  10)  J  "Filan  dllttirr  lEkt*  LAv  eø  ny.  ":GDTD30050 
"0030  IF  EPfr«]7  THEH  PRlNTTABtØt  10!  £  "Etcape- t4*Un  virlier  1  kks V :  GOTO3005O 
30040  REPORT  [PRINT1*  i  linie  "eERL 


3002O 

30030 


30040  REPORT:  PR  IN  T“‘ 
30050  PF:DCSPACE 


30040 

? 


ENDPROC 


Soft  Special  19 


Identity  Checke 

i  PERSONNUMMERBEVIS  PERSONNUMMERBEVIS  ;  u<,s,c<" at 

INDENRIGSMINISTERIET 


PERSONNUMMEREEVfS 


INDENRIGSMINISTERIET 

Sekretariatet  tor  personregistrering 


SEKRETARIATET 


Personnummer 

( 

rm  "  1 '  "  I 

Fødselsdato 

,  c,  j/ieUe-se  Jatc 

FOR 

1 

i 

l 

i 

_™_. _ J 

28  SEP  1968  | 

1  | 

PERSONREGISTER 

Optaget  i  folkeregistret  for  nedenstående  kommune 


J 

højé-txstrup 

2630 

Navr,  oy  adresss 

HANS  CHRISTIAN 

THA YS  EN 

Beviset  skat  opbevares  omhyggeligt. 

Deres  persoQnunnmerbevis  skal  bruges  til  dokumentation  af 
personnummer  over  for  offentlige  myndigheder  og  andre 

Er  der  fejl  r  bevisets  oplysninger: 

Se  vejledning  på  bagsiden. 


!  Personlig  underskrift 


■  Er  du  i  en  identitetskrise,  og 
kan  du  ikke  linde  dig  selv? 
Det  skyldes  uden  tvivl,  at  du 
har  et  forkert  CPR-nummer! 
For  Commodore  64  ejere,  der 
føler  sig  fremmedgjorte,  er 
redningen  her.  Programmet 
spørger  selv  om  de  ønskede 
oplysninger,  og  checker  CPR- 
nummeret.  C 

Jan  Petersen 


■ 

COMMO 

DORE 

64 

S 

© 

LJ 

10  PR  3  NT" J  aCFR,  TAEST®  "  i  CLR 

20  PRINT  "SKRIV  CPR -NUMMERET  /HUSK  KUN  10  TAL  H 
30  INPUTCPS 
40  C  I  =LEN<  CPÆ  ) 

50  IFCI<  MOTHENGOTO  1000 
70  FOR  L  =  1  TO  10 
75  RERDG 

30  FR  =  FR+C  <  VRLC  MIPSC  CP^ /L/  1  >  )  >*Q> 
lOO  NE  X TL 

105  IFFA=øQ0000000DTHEN2Q0G 
1  10  IFC  FA/1  1  >"INT<  FA/  1  1  )THEN1500 
1 20  IFC  FR/ 1  1 X  > INTC  FR/1  1 >THEN200Q 
993  END 

1000  PR  I  NT  *'  U  DET  SKULLE  VRERE  PRR  11  CIFRE  IKKE  PAA";CI 

1010  FQRN=OTQ  1 700  •  NEXT '  GOTO  1 0 

1100  DRTR4 /3 /2 /7 /6 /5 /4 /3 /2  /  1 

1500  PRINT,lJ  DET  ER  ET  REGTE  CPR-NR." 

1510  INPUT"  IL  DU  HAVE  TAESTET  ET  NYT  CPR-NRC  J/N)  "  j  I S 
1520  IFI$="J|É  THEN  1 0 
1 530  IF "N" THE  NEND 
1540  GOTO  1500 

8000  PR  lNT"iJCPR  -NUMMERET  VRR  FORKERT 

E0  10  INPUT IL  DU  HAVE  TRESTET  ET  NYT  CPR-MRC  J/N) 1$ 

8030  I  F  I  $=  lh  J  "THEN  1  O 
2040  IF  I$  = “N "THE NEND 
£050  G0T08000 

8500  DRTA4,3,2 ,7,6,5,4  ,3,2, 1 


■  1  dette  lille  program  kan  du 
høre  sød  musik  for  dine  ører 
Programmet  spørger  først  om 
hastigheden  på  melodien. 
1000  er  mest  langsom  og  50 
er  hurtigst.  Da  spiller  compu¬ 
teren  så  hurtigt,  at  man  næ¬ 
sten  mister  vejret. 


Bedste  og  mest  naturlige  ha¬ 
stighed  vil  nok  være  omkring 
250-300,  Efter  melodien  har 
spillet  færdigt,  stilles  du  igen 
over  tor  spørgsmålet  om  ny 
hastighed,  og  programmet 
starter  påny.n 

Nils  Lausten 


20  Soft  Special 


Solt  Special  2 1 


10  B IH  TC40> 

2R  FQRL=54272T054296  POKEL , 0 : NEXT 
PØ  INPUT '3 TUflST  IGHEI?  <50-1000>  ";Hfl 


4ø 

50 

60 

7@ 

Sø 

Sø 

100 

110 

120 

IS« 

14ø 

150 

I6ø 

l?ø 

løø 

ISø 

200 

210 

220 

2SØ 

240 

250 

260 

270 


EF  Hft“0  THEN  Nft=250 
FØR 1*07040  =  T Cl ) "HH  NEXT 
T<6>=Hft*2 
T<16>HR*3 
T<23>=HR*2 
TC3l>*=Hfl*4 
T(2>=HR/2<  T<3>3Hfl/2 
K8>*=HR/2  T<?)=HR/2 


COMMO 

DORE 

64 


T  C 1 1 >*Hft/2 ■ T  < 1 2) =Hfl/2 
T(14)  =Hfl/2  T C 1 5? =HR/2 
T<l?>=Hfl/2  TC2ø?=Hfi/2 
T  < 2?  > -HR/2 : T < 2S  > -HR/2 

PØKE542S6, 15  P0KE54277,31  PQKE54275  14  PQKE54274 -  3^  PHKE54278, I2S 

RERD  ft  JF  fl=- 1  THEN  RUH 
RERB  B 

PCKE54273 , R - PØKE54272 ■ £ 

PQKE54276,65 

FØR 1  =  1  TOT  CU) ’ NEXT  PCKE54276  , 64 
U=U+l-GøTØ  170 

røra  12, 216,  17,3?,  1?,  37, 17,37, 16,47, 14,  107, 12,216, 10,205,0, 147.  s,  159 

BRTR  lø,2ø5, 10,205, 10, 205, 11 , 1 14, 10-205,10,205,9, 159, 12,216, 17,37,17,37 
URT  ft  17,3? 

ERTft  21, 154, 19,63, 19,63, 17,37, 17, 37, 19,63, 14, 107, 19,63, 17-37, 16,47 ,17,3? 

røm  -1,-1 


-P0KE5427S,  123 


//  / , 

'  y  7  /  /  / 

/  /  /  / 

7  /  /  / 


HCT 

Man  Chi  T rra  i~i#r- 


■  Bliv  ban  ko -opråber  i  din  lo¬ 
kale  sportsklub  osv . 

Med  dette  lille  program  er  du 
i  stand  til  at  lade  din  Commo- 
dore  64  udtrække  de  90  num¬ 
re.  Vel  at  mærke  samtidig 
med  at  de  udtrukne  numre 
placeres  på  de  rigtige  pladser 
i  kontrolpladen. 

F1  giver  nyt  tal,  Return  nyt 

spil.n 

Jørgen  Schneider 


banko 


1 0  PR  I  NT  "  fcl^JI  SPCC  4)  “*#*****  *  BftNKQ  #  *####**“ 

1  I  P0KE53£S0,S! P0KE533B 1  ,Of P0KES4S,  1 
13  PR  iNTTftBr  33  > "  æOBBMBa— I  a  M" 

15  PRINTTftBC  31  >  "ITTRYK  F  i  " 

1?  PR iNTTftBC 3 1 > "SF OR  NYT" 

19  PR INTTftBC 31 > "M  TftLM 

£0  ET *30 

35  D IMTBC  ET+1 > 

30  TB C ET  + 1 >*□ 

40  FCRTslTOET 
50  TBC  T  5  3  T 
30  NEXTT 
70  2*55355 
30  FORT * 1  TO  10INEXT 

81  FR  INTTftBC  31  >  "JHIIIITTTT T TTTTTT-JYT  SPIL" 

3£  PR  INTTftBC  31  >  N  TRYK  11 
83  PR  INTTftBC  3  **  ‘RETURN ’" 

S4  FQRft  3  1T03D:  PQKE35 *4 O + ft + 90 3 , 1 70  i  P0KE35  *40  +8 
B5  FOR ft 3  J TO  10 : POKE 1 *40+A+333 , 170 : POKE 1 *40  +  ft  +Z 
©S  F  ORR  =3OT030 : POKE 1 #40 +ft  +983 ,170?  POKE 1  *  40  +ft  + 
08  F ORft  3 1T033: POKER *40+ 1 +333 , 170 : POKEft *40+ 1 +Z 
33  POKER *40  +30  +  383 , 170  s  POKER  *40+30+7 , 1  : NEXT 
30  F“  1  !S=ET 
lOO  U0  =  JNT(  RNDC  F > *S > +  1 
i OB 

103  PR INTLEFTSC  ft*, 14  };TftBC  34>CHR*C  38 > 

104  PR  I  NTLEFT*(  ft«  ,  |4  )  f  TftBC  33  >  TBC  UD  > 

105  POR  1  - 1T08 1STEP 1  O 

1  OS  IFTBC UD  )  = ITHENY=4 
107  NEXT 

i  OS  FOR  1 »RT08BSTEP 1 0 
103  IFTBC  UO  >  -  1  THENY^B 
1  10  NEXT 

111  FOR  I =3T083STEP 10 
113  IFT©C  UD  > “■ ITHENY“8 

1 13  NEXT 

114  FOR  1 =4  T 034  STEP  1  O 

115  I FTBC  UD  >  = I THE NY - 1 0 
1 13  NEXT 

117  F0R1 =5T085STEP10 
11S  IFTBC U0>-3THENY“1S 

1 18  NEXT 

130  FOR I=6T038STEP 10 

131  IFTBC UD >" 1THENY-14 
133  NEXT 

1 33  FOR  I -7T037STEP 10 

134  IFTBC  UD  >=  ITHEINY-  16 
185  NEXT 

IBS  FOR  1 -3TOSSSTEF 10 
137  I F  TB<  UD  5  3  I THENY - 1 8 
133  NEXT 

133  FOR  1 =3T0S3STEP lO 

130  1FTB-:  UO  I  THENY  =30 

131  NEXT 

133  FOR  I* 10T030STEP 10 

133  IFTBC  UO  >  “  1  THÉl^-33 

134  NEXT 

135  REM* **************** 

133  FORTO  = 1  TO  10 

137  IFTB<  UD  3 -TOTHENX  = 1 
140  NEXT 

143  FORTI -UTOeO 


COMMO 

DORE 

64 


+Z , 1 : NEXT 
,  i  if-exT 
1 , 1 f NEXT 


155  IFTBC UD53T1THENX=4 
ISO  NEXT 

170  FORTS =£ 1 T030 

130  IFTBC UD >=T3THENX^7 

185  NEXT 

180  F0RT3 =311040 

1S5  IFTBC UD>“T3THENX“10 

300  NEXT 

810  FØRT4=4 1T050 

330  IFTBC UDJ -T4THENX= 13 

£30  KCXT 

£40  FQRT5  =5 1 TOSO 

850  IFTBC  UD  >  *T5THENX= 16 

380  NEXT 

£70  F0RT6-61T070 

S BO  IFTBC U0>*T6THENXp13 

380  NEXT 

300  F OR  T 7 1 7  5  TO 8 O 

310  IFTBC UD >=T7THENX*££ 

330  NEXT 

330  F0RT8-31T09O 

340  I  FTBC  UO  >-T8THENX-35 

350  NEXT 

400  REM***************** 

500  PRINTLEFTÆC  ftÆ  fY> J  TftBC  X>TB<  UD  i 

10  10  ft*~“,l?GETftS;  fFft**  -  "THEN  10  10 

1015  IFR*« H THEN 1 500 

1100  GET8*; - "THEN1 100 

1110  IFBÆ-CHR$<  135THEN3000 

1115  GOTO  1  O  1 D 

1500  FORT  ft  L  =UO  TO  S 

1300  T3C  TftL ) 3TBC  TftL  + 1  > 

1SOO  ÆXTTftL 
£000  S-S-l 

3100  IFS-OTHENGOT0300C 
3300  GOTO  100 
3000  CLR ' GOTO  10 


Intelligent 

Othello 


O 


■  Jeg  vil  gerne  fremhæve,  at 
dette  eksempel  på  brætspillet 
Othello,  er  hvad  man  kunne 
kalde  "intelligent".  Det  skal 
forstås  på  den  måde,  at  du 
med  denne  version  al  Othello 
i  din  computer,  tår  en  ganske 
værdig  modstander. 

De  erfarne  spillere  vil  hurtigt 
finde  programmets  svaghe¬ 
der,  og  vil  kunne  spille  på 
dem.  Har  du  derimod  ikke 
den  store  erfaring  med  spillet, 
vil  det  give  dig  mange  mor¬ 
somme  timer  i  selskab  med 
dm  datamat. □ 

Hans-Erik  Larsen 


TOSSENS' 


få 


HCT 


-s  n  s  -  *  r  »  kl;  arsenM 
&  .  B2r_.S.  u  1  i  *U  9S4*  1P 

2  GOSUB  3500 
3AS=0 

4  SLDW 

5  CL  S 

6  PRINT  AT  Si  101  ",  *  Bc>thei  (  ol,  .  " 
i  AT  10.7!mV:l  DU  BEGYNDE  J/hi1' 

7  I F  INKEYt  O  ,MI  THEM  GOTO  7 

8  IF  INKEY$-" "  THEM  GOTO  S 

3  IF  IhlKEY*",fJ"  THEN  GOTO  13 
10  If  1NK£Y*="N"  THENflS=i 

13  5QUND  10, 1QOO 

14  CL 5 

15  PR  IN*  AT  10, 5; “TAST  Fp  FOR  FA 
ST  !*I0DEH;PT  12,5;  "TRST  S,  FOR  SLG 
W  JlDDE Kt 

16MQDE=0 

17  IF  INKEY*=P'F"  THENNODE*! 

IS  IF  1NKEY*=MS"  THENMDDE=2 
13  IF  PIODE >0  THEM  GOTO  22 

20  GOTO  17 

21  IF  AS-O  THEN  GOTO  SO 
22MI =3 

23  IF  1NK£Y*=""  THEN  GOTO  23 

24  IF  INKEYfc^'N”  THENAS- 1 
50  CLS 

55 XX “O 
70  FAST 
SOC-l 6326 
SO  FOR  B-5  TO  1 2 
100  FOR  fl=13  T022 

105  IF  ES=5  THEM  PRINT  AT  4,AtCHR* 
fi+23) 

110  PRINT  AT  Bi  A!  ! 

120  NEXT  R 

135  PRINT  AT  B*l4;CHft$  (B+33) 

140  NEXT  B 

150  POKE  16413* 0 

160  PRIMT  AT  23i  B! "  ) >  ■&* 6« U O® f < " 
165  PRINT  AT  6*  0 1  "scorel"  I  AT  7*0! " 
tast  BO";  AT  15*  0; 11  ■statusli’'  *  AT  17*0 
;  "X=2  0=2 " 


167HD-0 

170  POKE  16413* 2 

171  PDKE  C-li 139 

172  POKE  C- 33 *  1S3 
173X*2 

I  740=2 

175  PDKE  Ci ISO 

176  POKE  C-34> ISO 

177  IF  AS— 1  THEM  GOTO  1000 

ISO  PRINT  AT  0,  0;  )  Id.  tit  raeKltK 

1  ¥)■<  (  "  i  RT  S,  o;11  input 

*  *  AT  1 1 T  1  *  "■ 

135  SLDW 

200  IF  INKEY*  O  " 11  THEM  GOTO  200 
210  IF  INKEYi-” "  TKEN  GOTO  210 
220A$=IMK£Yt 

221  IF  CODE  A*=53  THEM  PRINT  AT  3*0 

1  "+|PS5»tl( 

222  IF  CODE  A$=53  THEM  GOTO  933 

224  IF  CODE  At =2B  THEN  SOUND  1Q* 15 
OO 

225  IF  CODE  AS=2S  THEM  GOTO  562 

229  IF  CODE  A* <38  OR  ODDE  A*>  45  THE 
N  GOTO  200 

230  X 31 C  O  DE  A*”3S 
240  SOUND  20* 1000 
250  POKE  16B74*  CX+-3S) 

260  IF  INKEYtO""  THEN  GOTO  260 
270  Ir  INKEYt= " "  THEN  GOTO  270 
280B$=I NKEYf 

235  IF  CODE  B*>45  OR  ODDE  &*  <33  THE 
M  260 

230Y-CDDE  B$-3S 
TDO  SOUND  20 , 1000 
310  POKE  J  6275. 26 
<  320  PDKE  16E7é*<Y+3S> 

330S=< : 6630+ t Y*33+X) ) 

333  aRI  NT  A_  0*01" 

340  IF  PEEK  S=1S0  CR  PEEK  S- 139  THE 
M  GCTG  550 

350  IF  PEEK  ( B-34>  =  1S0  OR  PEEK  CS-3 
3) =180  OR  PEEK  i S“32) =1B0  OR  PEEK  (S 
- 1 )  =  L  S  O  OR  PEEK  <S+1)  =  1S0  GR  PEEK  iS 
+33>=1S0  GR  PEEK  <3+323*130  OR  PEEK 
< S+34 ) = I SO  THEM  GOTO  360 


355  GOTO  550 
3600=3 

370  FOR  P=CQ-34)  T016651  STEP-34 
375  IF  PEEK  A= 1 83  THEM  GOSUB  600 
377  IF  PEEK  A<*12B  THE W  GOTO  3B5 
320  NEXT  A 

325  FOR  A=CQ-33>  TQ 16550  STEP- 33 
390  IF  PEEK  A=1  89  THEN  GOSUB  650 
395  IF  PEEK  A  0128  THEM  GOTO  405 
400  NEXT  A 

410  FCR  A=<Q-32>  TO  16550  STEP-32 
415  IF  PEEK  A-1S9  TKEN  GOSUS  700 
420  IF  PEEK  A  <  =  1 2£  THEM  GOTO  430 
425  NEXT  A 

430  FOR  A*(Q-1)  TC 16550  STEP- i 
435  IF  PEEK  A=1S3  THEN  GOSUB  750 
440  IF  PEEK  fK-I2S  THEN  GOTO  450 
445  NEXT  A 

450  FOR  A=  C  Q+ 1 )  TO  17300  STEP1 
455  IF  PEEK  A-1S9  THEN  GOSUB  300 
460  IF  PEEK  A  <  =  128  THEN  GOTO  470 

465  NEXT  R 

470  FOR  A=CQ+32>  TO 17300  STEP32 
475  IF  PEEK  A=IS9  THEN  GOSUB  350 
480  IF  PEEK  A  <  =  1 23  THEN  GOTO  430 
4B5  NEXT  R 

430  FOR  P-fG+33)  TO  17300  STEP33 
495  IF  PEEK  A=10S  THEN  GOSUB  300 
500  IF  PEEK  A <=12S  THEM  GOTO  510 
505  NEXT  A 

510  FOR  A-CO+34)  TO 17300  STEP34 
520  IF  PEEK  A“ 109  THEM  GOSUB  950 
530  IF  PEEK  A  <  =  1 28  THEM  GOTO  540 
535  NEXT  A 

540  IF  PEEK  S=1 S 9  THEN  GOTO  1000 
550  PRIMT  AT  Oi  O* " -Bu  l  oy i  i r ae 
xl-  “ 

560  PAUSE  150 

561  GOTO  178 

562  PRINT  AT  3*  Omflak .  ■"  ; RT  Q*OiM- 

■OjebliKft-  " 

563  X  =0 
5640=0 

565  FOR  B-5  T012 


22  Solt  Special 


566  FOR  ft- 15  TD22 
567TY=165lQ+(B*33+fi) 

569  IF  PEEK  TY- ISO  TRENQ-O+'l 
549  IF  PEEK  TY=lS9  THENX=X+1 

571  NEXT  ft 

572  NEXT  b 

575  PRINT  ftT  17,  O;  " X="  i  X  ; H  0="i0t 


il  ii 

576 

IF  X+0=64  THEN  GOTO 

i  3090 

577 

IF  X=0  OR  0=0 

THEN 

GOTO  3091 

585 

GOTO  1 78 

600 

FOR  ft- (0-34) 

TO 16550  STEP-34 

602 

IF  PEEK  A=i 33 

then 

GOTO  335 

605 

IF  FEEK  A=  1  SO 

THEN 

POKE  ft, 1S9 

614 

PDKE  S, 189 

615 

NEXT  A 

650 

FOR  fl=(E-33) 

TDI  655 

0  5TEF-33 

655 

IF  PEEK  A=1 39 

then 

GOTO  405 

660 

IF  PEEK  A=180 

THEN 

POKE  ft, 189 

670 

POKE  S,  189 

680 

NEXT  ft 

700 

FOR  A=(G-32> 

TG  1655 

0  STEP-32 

705 

IF  PEEK  ft=  1 33 

THEN 

GOTO  426 

710 

IF  PEEK  ft=lSO 

THÉN 

POKE  ft, 139 

720 

POKE  S, 189 

730 

NEXT  ft 

750 

FOR  A=ce-1>  TDI 6550 

5TEP-1 

755 

IF  PEEK  A= 1 39 

THEN 

GOTO  449 

760 

IF  FEEK  A=  ISO 

THÉN 

POKE  A, 139 

761 

PDKE  S,  189 

765 

NEXT  A 

soo 

C0R  A=  CQ+1 )  TO1730O 

STEP1 

810 

IF  PEEK  ft=  1 89 

THEN 

GDTO  469 

S20 

IF  PEEK  ft- 130 

THEN 

POKE  A, 189 

825 

PDKE  S* 139 

830 

NEXT  ft 

S50 

FDR  ft=  CC+32) 

T017300  STE332 

860 

IF  PEEK  1  £9 

THEN 

GOTO  490 

870 

IF  PEEK  ft  =  I  S 0 

THEN 

POKE  ft, 189 

375 

POKE  3,  IBS 

880 

MÉX  ’  ft 

900 

FOR  ft= ( Q+33) 

TO 17300  STEP33 

910 

IF  PEEK  fi= 1 89 

THEN 

GOTO  510 

920 

EF  PEEK  fl=  130 

THÉN 

POKE  ft, 139 

-±25 

^unt.  ^ i  dd 

930 

NEXT  ft 

350 

FDR  A= ( G+34 ) 

ID  17300  STEP34 

960 

IF  PEEK  ft= 1 89 

THEN 

GOTO  540 

970 

IF  PEEK  A=tSQ 

THEN 

POKE  A, 289 

975 

PGKÉ  S, 183 

9E0 

NEXT  ft 

3S0 

PDKE  S,  189 

939 

SOUND  10,2000 

1000 

PAUSE  100 

1  001 

HB=0 

1002 

MI=MI-1 

>.  <>03 

IF  Ml <0  THENM I =0 

1005 

ftS=0 

1Q0S 

PRINT  ftT  G,  OS 

"  +Pfn  i  tMt  ra?k®t 

1 0G9WC=G 
101  OHI -O 

1011  IF  MODE  =  I  THE  Ni  FAST 

1012  IF  MDDE-2  THEN  SLOW 
1 Q15HL=Q 

1020  FOR  ft=  C 15+MI )  T0C22-MJ) 

1025  POKE  (  16510+6)  ,23 
1030  FDR  B=<5+MI)  TGU2-MI) 

3,040F=(  1 651  OM  B+3G+A)  I 

1050  IF  PEEK  P=12S  THEN  GOSUB  H  Oø 

1060  NEXT  B 

1 070  SOUND  (fl+B) ,  500 

1080  NEXT  ft 

1085  GOTO  3021 

1090  REM  i se 

1100  IF  PEEK  < P-34) =1S9  OR  PEEK  ( P-3 

3) =183  OR  PEEK  (P“32)=1B9  OR  PEEK  (P 

-1)=1S3  OR  PEEK  ( P+l ) = 183  OR  PEEK  C P 

+32) =183  OR  PEEK  (P+33)=1S9  OR  PEEK 

( P+34 J=1 S9  THEN  GOTO  1200 

1110  RETURN 

1 200QA-0 

1210  FOR  C«(P-32)  TDI 6550  STEP-32 
1220  IF  PEEK  C=13Q  THEN  GOTO  1300 
1230  IF  PEEK  C=1S9  THENGA=GA+1 
1240  IF  PEEK  C  (  =  123  THENQA=0 
1250  IF  Qfl=0  THEN  GOTO  1300 
1260  NEXT  C 
130008=0 

1310  FOR  C= ( P-33)  TO  i  6550  3TEP-33 
1320  IF  PEEK  C=1S0  THÉN  GOTO  1400 
1330  IF  PEEK  0=139  THENQB=*GB+1 
1340  IF  PEEK  C  <  =  1 23  THENQB-0 
1350  IF  QB=0  THEN  GOTO  1400 
1360  NEXT  G 
1  400000 

1410  FGR  C=  <  P-34 )  TG 16550  STÉP-34 
1420  IF  PEEK  C=1S0  THEN  GOTO  1500 
1430  IF  PEEK  C=1S9  THÉNQC=GC+1 
1440  IF  PEEK  C  (  =  128  THENQC=0 
1450  IF  QC=0  THEN  GOTO  1500 


1460  NEXT  C 
1 500QD=0 

1510  FOR  C=(P-1)  TD<  P- 13)  STER-1 
1520  IF  P£EK  C=1SQ  THEN  GOTO  1600 
1530  IF  PEEK  0189  THENQD-GD+1 
1540  IF  PEEK  C  (=128  THENQD-0 
1550  IF  0D=O  THEN  GOTO  1600 
1560  NEXT  O 
160Ot5!E=O 

1610  FOR  C=(P+1)  TDCP+13) 

1620  IF  PEEK  0180  THEN  GOTO  1700 
1630  IF  PEEK  0 189  THENQE=QE+1 
1640  IF  PEEK  C  <= 1 2B  THENQE-0 
1650  IF  QE=- O  THEN  GOTO  1700 
1660  NEXT  C 
1  70QQF-Q 

1710  FOR  C= <  P+32 )  TG  17200  STEP32 
1720  IF  PEEK  0=130  THEN  GOTO  1SOO 

1730  IF  PEEK  C=133  THENOF=QF+ 1 

1740  IF  PEEK  C(=12B  THENQF=0 

1750  IF  QF=0  THEN  GOTO  1800 

1760  NEXT  G 

1  SOO  Q  G- O 

1810  FOR  C= ( P+33 )  T017200  STEP33 
1820  IF  PEEK  C=1S0  THEN  GOTO  1300 
1830  IF  PEEK  0=189  THENOG=QG+  i 
1840  IF  PEEK  C  <  =  128  TKEN0G=0 
1850  IF  QD=Q  THEN  GOTO  1900 
1360  NEXT  C 
1900QH=0 

1910  FOR  C=  < P+34 )  7017200  STEP34 
1920  IF  PEEK  C=1  SØ  THEN  GOTO  2700 
1330  IF  PEEK  C- 189  TH£NQH=GH+1 
1940  IF  PEEK  C  (  =  128  THENQH=0 
1950  IF  QH-0  THEN  GOTO  2700 
1360  NEXT  C 

2  7f>0  HL=Q  ft+QB+QC + QD + QE +QF + QD+ QH 
2750  IF  XX=1  THEN  GOTO  3017 
2800SB=0 

2301  BB=0 
2S02BC=O 
2S03BD=O 

2308  IF  PEEK  16690=180  ThENGB=l 
2810  IF  PEEK  16697=130  THENBB=1 

2020  IF  PEEK  16921=180  THENBC=1 

2S30  IF  PEEK  16928=180  THENBD=i 

2890  IF  SB=1  THEN  GOTO  2901 

2900  IF  ( P— 34) =16630  OR  (P-33) =166 
30  OR  (P-l) =16690  THENHL-0 

2901  IF  BB=1  THEN  GOTO  2919 

2910  IF  EP- 33)  =16697  DR  <P-32)=166 
37  DR  (P+l) =16697  THÉNHL=0 
2:313  IF  BC=  1  THEN  GOTO  2928 
2920  IF  (P+33) =16921  OR  CP+32)=169 
21  DR  C P-l ) =16321  THENHL=0 

2929  IF  BD= 1  THEN  GOTO  3006 

2930  IF  <P+33) =16928  DR  CP+34)=169 
28  OR  C P+l >  =16928  TKENHL=0 

3006  IF  HL>  O  ftND  P=1692B  7HENWG= 1 

3007  IF  HL > O  ftND  P= 16690  THENWC* 1 
3 OOS  IF  HL) O  ftND  P= 16321  THENWC=1 

3009  IF  HL) O  AND  P= 16697  THENWC=1 

3010  IF  HL >2  ftND  PU 4697  THENWC=1 

3011  IF  HL>  2  ftND  P> 16921  THENWC=1 

3015  IF  WC=1  THENHI =P 

3016  IF  WC=1  THEN  GOTO  3025 

3017  IF  HL>  HD  THÉNHD=HL 

3018  IF  m-HL  THENHl  =  P 

3020  RETURN 

3021  IF  HD— O  THENX  X=X  X+ i 

3022  IF  XX=1  ftND  HD) O  THENX X=0 

3024  IF  X  X  = 1  THEN  GOTO  1001 

3025  IF  XX=2  DR  Hl=0  THEN  GOTO  8000 
3030  SOUND  10,2000 

3035  SLOW 

303S  FOR  A=1  TC15 

3039  POKE  HI, 52 

3040  PAUSE  4 
3050  POKt  H I f  ISO 
3060  NEXT  ft 
3070  GOTO  4000 

4000  FOR  C=CHI-32)  TO  16690  STE*-3 

O 

ihr 

4010  IF  PEEK  C=1S0  THEN  6G5UB  6000 
4015  IF  PEEK  C  (=123  THEN  GOTO  4100 
4020  NEXT  C 

4100  FDR  C= I Hl -33)  TO 16690  STEP-3 

O 

4110  IF  PEEK  0180  THEN  GOSUB  6100 
4115  IF  PEEK  C  <= 1 23  THEN  GOTO  4200 
4  120  NEXT  C 

4200  FOR  C-CHI-34)  T016630  STEP-3 
4 

4210  IF  PEEK  C=1S0  THEN  GOSUB  6200 
4215  Ic  5EFK  C (=128  THEN  GOTO  4300 
4220  NEXT  C 

4300  FDR  e=CHl-l)  TG  1 6690  STEP-1 
4310  IF  PEEK  C=1 80  T^EN  GOSUB  6300 
43 IS  IF  PEEK  C  <= 1 2S  THEM  GOTO  4400 
4320  NEXT  C 

4400  "DR  C=<h:+1)  TOCP+15) 

4410  IF  PEEK  C=1S0  THEN  GOSUB  6400 


4415  IF  PEEK  C <=128  THEN  GOTO  4500 
4420  NEXT  C 

4500  FOR  C- C Hl +32}  TD 17200  STEP32 
4510  IF  PEEK  C=  1 80  THEN  GOSUB  6500 
4515  TF  PEEK  C  <  =  128  ThEN  GOTO  4600 
4520  NEXT  C 

4600  Fqr  C=  <HI +33 )  7017200  STEP33 
4610  IF  PEEK  C= 130  THEN  GOSUB  6600 
4615  IF  PEEK  C  (=123  THEN  GOTO  4700 
4620  NEXT  C 

4700  FGR  C=  < HI +34)  TO 17200  STEP34 
4710  IF  PEEK  C=1S0  THEN  GD9UB  6700 
4715  IF  PEEK  C  <=123  THEN  GOTO  178 
4720  NEXT  C 
4800  GOTO  178 
6000  PDKE  HI, ISO 

6005  FOR  C= (HI -32)  TO  16690  STEP-3 

■Ti 

&Q1Q  IF  PEEK  C ( = 1 SO  THEN  GOTO  4100 
6020  IF  PEEK  C=1S3  THEN  POKE  C,  ISO 
6030  NEXT  C 
6100  PDKE  HI,  180 

6105  FOR  C-CHI-33)  TDI 6690  STEP-3 

6110  IF  PEEK  C  (=180  THEN  GOTO  4200 
6120  IF  PEEK  C=1 89  THEN  POKE  C,  ISO 
6130  NEXT  C 
6200  PDKE  HI.  180 

6210  FDR  C=  <HI -34 )  TD16690  STEP-3 
4 

6220  IF  PEEK  C <=180  THÉN  GGTD  4300 
6230  IF  PEEK  ’C=1S3  THEN  POKE  C,  130 
6240  NEXT  C 
6300  POKE  HI, ISO 

6310  FOR  O(HI-l)  TO  C  HI*  13)  STEP- 
1 

6320  IF  PEEK  C  (=180  THEN  GOTO  4400 

6330  IF  PEEK  C=  189  THEN  POKE  C,  180 

6340  NEXT  C 

6400  POKE  HIi  130 

6405  FDR  C=CHI+1)  TD<HI+J3) 

6410  IF  PEEK  C<=ISO  THEN  GGTD  4500 
6420  IF  PEEK  C=1S9  T HEN  POKE  C,  180 
6430  NEXT  C 
6500  POKE  HI* ISO 

6510  FOR  C= ( Hl +32)  T01720Q  S7EP32 
6520  IF  PEEK  C  <=130  THEN  GOTO  4600 
6530  IF  PEEK  C=1B9  THEN  PDKE  C,  ISO 
6540  NEXT  C 
6600  PDKE  Hl,  180 

6610  FOR  C= (HI +33)  T0I72OO  STEP33 
6620  IF  PEEK  O <=180  THEN  GOTO  4700 
6630  IF  PEEK  C=I39  THEN  POKE  C,1B0 
6640  NEXT  C 
6700  POKE  HI,  ISO 

6710  FOR  C=  <HI +34 )  TDI 7200  STEP34 

6720  IF  PEEK  C <=180  THEN  GOTO  178 

6730  IF  PEEK  0=189  THEN  POKE  C,  iBO 

6740  NEXT  C 

7000  GOTO  17B 

3000  FOR  fl=5  T050  STEP5 

S001  SOUND  ft,  500 

3002  NEXT  ft 

3009X=0 

3010D=0 

8020  FOR  ft=5  TO  i  2 
0030  FDR  B= 1 5  T022 
0040 PD- (1651 0+  Cfl+33+B  > ) 

8050  IF  PEEK  PO=1SO  THEN0=D+1 
S060  IF  PEEK  P0=1S9  THENX=X+1 
3070  NEXT  B 

8075  80UND  <A+B-!3),500 
0080  NEXT  ft 
0090  SLOW 

8091  IF  Q>  X  THEN  PRINT  ftT  0,01"  Jeg* 
vandt  MED  M01U  POLLER  NOD  DINE 
MM  "  KRYDSER"  '  ftT  15,151"+  MftTE  + 

M 

0100  IF  X3  0  THEN  PRINT  ftT  0,  O! 11  du|v 
MED  tlJX;"  KRYDSER  MOD  MINE 
"  BOLLER" 

8110  PRINT  AT  21, 51 "VIL  DU  PROVE  I 
GEN  J/N" 

8115  IF  0=X  THEN  PRINT  AT  0,01" 

DET  BLEV  UAFGJORT  MED  "iQ?"-"iX; 

II  Hi 

0120  IF  INKEY*  =  "J<!  THEN  RUN 
8130  IF  INKEY$="N"  THEN  STOP 
0140  GOTO  S 120 
3000  SAVE  "OTHELLo" 

9010  PUN 
9500  FAST 

9510  FOR  A=  L  7031  STEPS 
9520  SOUND  ft,  500 
3530  SGUND  (fl+l),500 
9540  SOUND  (ft+2)*500 
3550  SOUND  <fi+3),500 
9560  SOUND  (ft+4),500 
3570  SOUND  (A+5),500 
9580  NEXT  ft 
9590  SLOW 
9600  RETURN 
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ORIC 


scroll 


Delte  program  til  Oric/Atmos 
er  en  lille  maskinkoderut ine, 
der  fint  kan  bruges  som 
"blær”  i  spil  og  andre  pro¬ 
grammer  Programmet  "rul¬ 
ler"  hele  karaktersættet.  Kal¬ 


der  man  rutinen  8  gange,  vil 
karaktererne  være  på  plads 
igen.  Demoprogrammet  skul¬ 
le  gerne  vise,  hvordan  det 
virker,  □ 

Anders  Jørgensen 


s^L,L 


4 


1  FORN  =  #400  T0#41D 

2  READAi;M«=VAL(,'#''+A$) 

5  POKEN.M 

4  NEXT  N 

5  DATA  A9,Øø,Aø,B4,85,ØØf84,01 

6  DATA  AØ, 00, Bl ,00, 2 A, Bl ,00, 2 A 

7  DATA  91 ,00,08, Dø, F5,E6,Øt ,A5 

8  DATA  01 ,C9,B8,DØ,ED,60 


L  del 


10  REM  ++++  DEMONSTRATION  ++++ 


20  CLS ; PAPER  0; I NK7 


2.  del 


30  F0KE#2  6A  ,  1  0 

40  PL0T3 1 1 Ø/1  DETTE  ER  EN  DEMONSTRATION  AFt  HVAD* 
50  PLOT3,l2fl,MAN  KAN  OØRE  MED  DEN  LILLE  RUTINE. 11 
60  WAIT  200 

70  FQRN*1T080;CALL*400:NEXTN 


80  WAIT  200 


90  F0RN= 1 T080; CALL&400 : NEXTN 


100  WAIT  200 


110  PL0T3 , 1 4  f"DET  SAA  DA  SMART  UDt  IKKE  SANDT  ?H 


120  END 


Copyright  1985  by  Anders  Jørgens en l 


■  I  dette  Scramble  lignende 
spil  til  48  K  Spectrum  skal  du 
flyve  gennem  de  7  forskellige 
skærme,  Samtidig  skal  du 
skyde  rumdyr  ned  uden  selv 
at  blive  ramt. 

På  hver  skærm  bliver  spillet 
en  smule  sværere.  Det  ses  ved 
at  jorden  skifter  farve  og  lase¬ 
ren  hurtigere  bliver  ophedet , 
Spillet  er  i  øvrigt  selvforklaren¬ 
de  .□ 

Benny  Lønstrup  Kristensen 


/ 


y 


9 


3  >G !cU 

$  i*  $  $  $  i  -i 

*  "ppOG*? : 

*  Senny  L  *  Kristensen  & 


$  L.-rf  f  &  ■.€  T  L  l  E  ti  L 


■i-  i  3  K  R  l.-  T"  G  U  M 

*  Kar  £vti  benytte*  1 ■ 

*  CUREfiH  MICRO -3PEEC" 


U  ru  e  i“  r  €  tø  e  d  *  i  ^ 


2  ClEGP  ES990:  RESTOftE 

h  =0  80GDER  ø:  PAPER  3  ILf 

K  6“ 

3  GO  5UE  3303  lEt  i  nc  =-5-3. 
GO  S UB  jnd 

3  LaT  O  y  * = i £00 :  L  ET  O  =0 

-et  *ek=iiø3  ■ 


[S:  LET  Ca-l:  l£T 


_  ■:  bTj  -~fc 
—  -i.  t  H_  W 


LET  ci  =  :,Grt  Gn  GH  "  LET  i.  . 
000  LET  £*2=1500  LET  i  1  vO  =! 
i_ET  t  —  cl E30  i  n  v  =l3øO  v 

Styr  X  =4,000  LET  fy  f  {  =5000 
pr  in  1=6000  LET  £  Ly  1=7330 
na =8000  lEt  f i =ø 

4  i_ET  5=8  LET  p3=I030 
fci?t=18øø  LBT  fs=E 


■■  —  -L 

000 


01  S  P.E I 

k_  J  l»  ri  k_ri  %  I  s.  t  j  Ir  ■  h  ■  *  ih-  ->■  t*  h  mi  I 

II C™  t?  S' ^  *  ?  P!  IF I 


24  Soft  Special 


■  Programmet  kan  checke  et 
CPR-nummer,  samt  beregne 


alle  gyldige  erstatningscilie  til 
en  given  lødselsdag,  □ 

Niels  Jørgen  Bertelsen 


S  REM - - - 

-j  GOSUB  itw 

KESTOIRE  CLK  DlHftln  13'  Rt; Hii i  H 1 .  Hl 1 . !  -  NÉKT  ftfflDFr-  1 1  > Pil"  ld.‘> 

*•0  PR  I  HT "  TWAlC  PR .  FRU,  liftWiV - - - JNPUi  øliiÉL&BH  lu  “  ,  li  1*-Vhq_vmid  Li 

>> 


IKYfiURI&Wii  Ii*,/>)/4=iUT\VflLvRI'jHfJ'  ■  FHtMrtDii'^=irS 

[FL£N<Ii*K>6.  OR  VKLvIi-l-^lwlyu  Ok  V-  l  c.'  iMbN^tJ 
FORX^LTOÉ  $i=Sl+€H<X>*VftLvMlB*i:Df  .x,i>  j  NEXT 

kø  fR  i  n  r  ■  stewwflRiw*-  - - ■■ 


70  1 NPUT  '■  FRET  ku  LE" ,  k*  ■  MVhI  i  ki  <  I  FLEN  t  k  f )  C-  40PK  CO  rHBN70 

SØ  ii-i  1  R0ftX=  7l0ltj .  Sa=S2+CH<X)*WL'  NUiiil  * .  X-t.  4"  hit 7 T  IFi^/ 1 1-IN )  <Stf/  1 1  •■  IHEHl 

05 

90  F  PlNTJ,fll*JBlRiRtBiiUJ!ljfJ)!HN.l^VLr<£Ol  i.  kk'.MR,  :  n  ikUN  J  rn+yny  NEXt 
100  PfclNT ’MMMI  ,  "-k.*?""  K*0‘GOT06e 

JO®  I  PR. NR,  i  i  " 

1 00  I F k/£* [ HT  < k/2 , 1 HENFF I N T "  ftW 1 1 LhORE  R  EN  PIGE. -  GOTO 1 08 

107  PRINT11  #Liai  1  LHORE F-  £N  flftfeNfc,  " 

108  kORW-lfi;j4øOO  next 
llø  IFY«lTHEN3ee 


lio  PfflNTTMaCPft.Nft,  "D*W-"M 

125  PRlNTa,AOfcl— - - 

lit.  PRINT "qHfmÆR&  TøTNlN&SNR.  " 
127  PRINT1  iaWMlUTÆRSTHTNjllGSNfc,  " 


130  PRINT  "ri - - JT  I  FK/2=  I N  T  i  K/2  >  THENkå"  1 

140  FORCK-øTO^SOT  SU=8l : CKMRIGHTKSTF*  <C* > - 4> 

i  50  J  FCK<  ]_OøøflNBtK  >99T  H  ENE*  *»“ O  “  +P 1 8N  Ti  C  &.TR  *  <  CK  i  ,  3  >  :  GOTO  180 

1 00  I FCK< 1 ØøflMECK >9?HENCK-M “ 00"  +Rl ijHT* i  bTF $<CIO,2>  OoTultfO 

1 70  JFCK<  I  OTHENCk* =-'000"  +RlGHT*{$Tft*<ClO/  1  j 

180  F0RX-7T010  SU-5U+CHCX) *WL< M 1  Bf < CKi , X~<J ,  1  > >  :  NEXT 

1 05  I  FKø*  1 0NliCK/2<  3  [  NT  ( CK/2  )  THEN220 

190  I  FK0=0FiNDCK/2=  INTtCK/i  )  TNENiiO 

200  I F30X J  lOlNT^SU/lS  / 0RCK=h THEH220 

209  E^E+1 

ilø  IFE>9NMD£-.l00THEHpRlNT',y4Pi  "EM  "D*"-"CK* 

211  I FE<  1 0 T H EHFR I  NT " ‘JNR,  "E"  "W-kCM 
215  IFE>99THENPR]NT‘SNft.  "E"  :  "D»"-bJCk$ 

2 1 b  P0KE3&378 .10- POKE 88075  -  240 ■ FORM* S TC50 ■ NEXT ■ PORE  3^0 78,0  F0KE308  75 . 0 
22ø  GE  TU*  1 FU*= " S  *THEN  £46 
2 jø  NEXT  Ck 

240  I  FCK<9ft9STHENPRI  HT " A£>F<  FOR  FORTSrtET.  " 

250  PRINT"*MYK  FOR  NEW." 

2t0  0£TO*  I FH  (■= "f " ONDCK C9999T HENNEXTCK 
270  IF  RI" "N" THEN300 
280  GOT0260 

200  DO  TR  4t  3L,  3, 20, 2,  øl,  ?,  80,  $,  31, 5, 30, 4, 31*  3-  81, 2.30, 1*31, 30  -31 
300  PRINT'TUfsTiNDVEDMEMHJ-  |f 

310  PRINT" - - - " 

320  PF 1NT ■ PRINT"  l ,  CFfr-CHECK , " 

330  PRINT  PRINT"  2,  CPR-SNVfl. " 

340  PRINT  ULV—— - 

250  PRINT"  HOINDT ØST  VRLO." 

355  RE3T0RE ■ CLR ■ DINRB^ )i> • FQRX= 1 TulO  RERDtNvX j , RD<Kj ■ NEXT  REODRIK'  \ 1 >, RUC 12> 
3bø  OET'TI  I FV  I*  “  "  T HEN360 
370  V*VWL<V») 

3SO  IPV=10RV=2TNEN20 

400  G0T0360 


5  LtT 

y _  SCEP _l,5 
,5,5:  PhUSE 

,  —  e!  f  it  t. l  i  lø  l 

i*lt5r±2 


4  ■  SEEP  !.  j  7 :  BEEF 
BEEP  1 , BEEP  v 
£E  EEEP  !  ,  5  BEE"' 
SEEP  !.  .U  BEE: 


u  .t 

p  i 

r 


2  3  Pri7,F’!  -  -■  x  7"Q  INK  RNDt 

lC”  fiNE>#£55 -PND*175:  NEXT"  - 
100  ^-E“  :ii 

flCCflCDBLKGHLø 

llø  LE1  5  +  s  S 

133  PRINT  PT  19.0;  BRIGNT  i 
UER5E  i;  INK  s  k a e  r m  j - 
PflRSEC  jr  tn'  " 

135  PRIriT  PT  8.0;  INK  £  DUER 

;  C,£HJ' 

137  PRINT  23,1;  BRIGHT  1 


IN 


fy 


K  4 ;  "  FUEL  ■  : 

f u ; RT  £0/ 15 

,r  r-  sTtT1  -Ti  -T  1  r- 

j  r  j  ■  ■  £4  J  i;  i. 

5 ;  RT  £i ,,  15 ; 

K 

140  FuR  Z=1 

TO  LEN  b*-31 

153  PRINT  R” 

13/3;  BP  IG“* 

K  skaerm;b$:2 

TO  Z  +31  = 

IDF 


IN 


lb3  GO  5UE  flyt 
173  GO  OUB  S  *  Ud 
IBø  GO  EUE  inv 


OR  3K=i9i  TiRfN  LET  0  10-1  RNO  0,3 
RETURN 

£ø05  LET  o  =o-rl  Ip  o  >lø -sit ae.- m  r 
HEN  PRINT  RT  10, Sj  OUEP  1  INK  £ 
Ji  LRSER  (5UER  OP  HED  ET' ‘  ;  LE"  s*=^l 
U  i  a  a  J  s  i.  e  r  i  s  (oo>v(er^h(E£j  t  ( £  ■ ) 

t " : , GO ‘ 8UB  €X2:  LET  o =ø :  PRINT  q 

T  10,8;  OUFR  l;  INK  £; "LR5ER  OvE 
R OPHEDET" 

£313  LET  q*RND*$+l:  PRINT  a,2 
:  INK  q;  QUEP  1; "KKKKKKKKKKKKKKK 
KKKKKKKKKKKKKKK" ■  POKE  50015  i 
LET  qq=U5R  50000:  PR  INI'  RT  a  2 
INK  OUER  1; "KKKKKKKKKKKKKKKKK 
KKKKKKKKKKKKr." ;  :  IF  a=C  RNl  »  s  =5 
T?-rEN  LET  p=p+G5-b.  GO  5UB  ■■ 

ET  C=“l  IF  5-K.aerrTi>=5  THEN  ^,ET  f 
a  =t> 

£025  IF  AND  fa =6  TrtEN  fa 

=5 

£øl?  IF  snaerm»5  RND  p  >p2  THEN  i_ 
ET  f a  at 

£ø=;0  IF  P>p£  TH6N  LET  Stiaerm=SKc 
em+1:  GU  5U&  Skift:  LET  *  i  =  Rd  v 
s a n a  t  ( o u u  )  ne k s  \  Le  v  fer-  t "  i_ET 
P  £  *P  £  4 løøø :  LET  C£=C£4‘GH  " 

£13ø  RETURN 

£53ø  REM  *eksp Los  i  on* 

£535  1“  RND>,5  tM£N  lET  ;*t’nn 

:i  n  £sh  )  o  t IH 


£510 

PRINT  R“  C/b;  OUER 

_  -  r  ^ 

190 

GO 

SUB 

print  : 

Ir  f  t  =1  ““5-: 

•l  . 

Jr  ,1 

INK  £ ,  =£*£0  6j"LM: 

£  0 K E  53 

GO  t 

0  3 

316/ 

3  i-E  ;  =U5P  60333 

PRINT  R 

£38 

■JL1 

SUB 

5-  ~  ¥*. 

T  C  / 

b;  INK  3 :  ' 

£18 

IF 

f  \J  ( 

£98  THEN 

GO  5uB  f , * 

£633 

KbT  URN 

220 

IF 

f  u  < 

53  THEN 

GO  SUB  out 

3380 

rem  #angreb# 

?ø8 

NEXT  z 

33  23 

IF  cs-l  then  let  c 

=  INT  :.PND 

318 

GO 

TO 

■1  A  8* 

_E  \_ 

#17) 

PRINT  RT  C/b;  INK 

fa;  OUER 

1338 

PEM 

■#  >■" 

f  1  i  4  v 

i  ■  lr 

IU  " 

■3  ;  O ;  INK  0  ■■  2*b  ti  ? 


Iøl5  PRINT  fl 

€  f  Ki  /£ ;  QUCR  1  •  "  GH  " 

iø£0  lET  i n  fIN  55ø££  LET  .nisIN 
44d  10  Liz  é  -S  +  ■  i  n  ^£ OR  i  r?  ~ _ 9 
3  hNO  a  <£2i  -  f  !  inl*£S4  OR:  in  1*193 
;  hNO  a  >  0 )  i_bT  r"  u  s  f  u  -6*  ■  i  n  1  =25  ^ 
OR  i n 1 -19ø > -£# f i n =£54  uK  in =193 
^ -4*  ( i n < >£5i  RND  in<>lyø  RNO  in. i 
<>£54-  RNO  iril<>190J 
1030  PRINT  PT  a,0,  INK  0/2424SK3 
ersi/S;  DUER  1;  "GH" 

2043  RETURN 

Iløø  PEM  -Fask* 

lllø  IF  a  < 18  THEN  RETURN 

1115  LET  t  j  =  ,:  *  r  f  er.  j  fs  h  J  ni  i  t  -  ■  9 

r  ■  qv  friet" 

2 1£0  Gu  3UB  t  £ 

2133  RETURN 

2j=løø  re^I  40 ut  C!  ruet* 

2£05  PRINT  RT  iB,ø;  11 


-1-1  o  ■ 

,  &  ■ 


INK  5: 

■ 


l£lø  print  fl 

i_øSET  FØR  rOP  BRHENDbTCJt 

si="so.rUe)  9  1.0UU)  a a h  (ow  t  O 

fy  (ouu)  l " 

1215  *GU55  1 

■o  ie  beep  *■’ 

PRINT  RT  r'  ,  ø 


l££ø  POR  7=a  to  18:  BEEP  ,vi  ou- 


LET  5=f 


1 1  j™-  i—  ■  ■ 


:Nk  ■ 

FOR  ?=1  TO  lø  NEX"  9  Pi 

GO  5U5 


NT  RT  f , ø ;  :  NEXT  F  GO  &ui 

x£ 

i£3ø  PE-INT  ^t  11,2;" 


•1  -t.  4  r~,  nr~r  ;  in*.; 

2LJZL+1L'  ”  J«  ■  W”.  '  4 

løøø  1  i  f  t  * 

201.0,,  PRINT  Rt  19,0; 

RIGHT  i;-  ink  n.aera; 
RRRéfec  jr 

2  SS’ø;  INK  s»;a€ 

T  .1  .  “  -1  »  .  DDt 

r  W  i-  *  W  .■ 


:nuepse  _ 


«  [?.  TF.  “ 
K  ._L  "1 


is ; 


ER IGh” 

^R2NT  RT  19,25, 

GriT  I;  ink  ak  aa  rai 


.9;  25,  INUER 

bE  2 ,  BP 

k  aa  r  m 

lø£ø  PETjRt: 

1530  »S«  ^eksplosion  af  rumskib* 
1510  LET  rP=^  PRINT  RT  a  ø  øijeF 
lj  INK  £;  PRPER  7;  FLRSH  ,  BRI 
GliT  1;  "LH"  :  ROKE  60006  ,  i  p  Ø-.E  f 
0016/2  FØR  f=l  Tø  5  LE-'"  qqsUaP 
63300  NEXT  f  IF  c  S < : ■ "  t^^n  _ 
ET  r$:C$:  TO  LEN  C  i -3 f  .  FØR  »=1 
tø  £03  NEXT  -J  ■  PRINT  RT  3  O 
,J  LET  3  =$ 

1523  LET  f 0=1030  PRINT  RT  a  3 
DUER  1;  INK  4-,  "GH11 
1593  RETURN 
1999  PEM  +sMJd* 

£300  LET  in=IN  573  +£  IF  ir^Sf 


3015  IF  =.=r£  thén  PRINT  RT  :  ;.  r 
NK  ø;  11  r  LET  fr=29  lET  c^-1  R 
ETURN 

3017  IF  a  =  o  RND  skaariiivE  0=  a  = : 
RNE-  s  k  ae  rm  >  =5  RND  RND  <  *  35  THEN  G 
O  5b 5  3133 

^023  DDThJT  flT  r.H  INK  fa;  ØIJER 

i  '  T  J  >r 

3330  LET  b=b-l:  LET  C=C+LS>C)-fa 
-r  c  j  .  RR I  NT  RT  Cjb;  OUER  i;  INK  f 
3  1  Jl  IJ31 
334-3  "  RETURN 

3100  PRINT  q.T  C/b;  INK  fa;  OUER 
1 :  " IJ" :  LET  d % =" KKKKKKKKKKKKKKKK 
KKKKKKKKKKKKKK" :  PRINT  RT  c,0;  B 
RIGHT  i,  OUER  lj  INK  S;  TO  b ; 

.  PRINT  RT  O/b/  OUER  2;  INK  fa 

JJ-- 

3110  POKE  60016,1:  i_ET  qq=USR  60 
000-  PRINT  QT  C/Ø;  OUER  1,  INK  £ 
.dit  Tø  bi  :  IF  c=a  THEN  i_ET  = 
HRHRhahaaa'  Gø  8UB  ex£ 

3120  RETURN 

5030  LET  si  =  "t<ii)m  tf  ouu) 
fy  fouu  )  L J| 

5031  PRINT  RT  c , bi  OUER  lj  InK  5 

"  IJJ' ;  RT  11/7:  ø;  ink  2;  PR 

RER  8/  i;  "BENZIN  PfiflFYLDNI 

NG " :  FOR  f =3  Tø  1  STEP  -1:  POKE 
80316/ f:  RPNøOM IIE  USR  83033  Ng 
XT  f 

5335  LET  e*  =  :: 

EF6EFFFFFF5LK^l 
3FFFFFFFFFFEEEEEEEEBENZ INEFFFFFF 
fffeeeeeeeeef 

■  I 

5023  FOR  X=1  tø  3_£N  bf -31 
5333  PRINT  RT  18,0;  BPIGHT  2/  IN 
K  skaerrajbffx  TO  x+31);PT  26  Z 
BPIGHT  1/  INK  s kae rm ; e  i  (x  TO  x+6 
1) 

5035  GO  5UB  flyt-  IF  f U  < “3  THEN 

GO  5UB  OUt 

503"  GO  5UB  print 

5043  IF  x  =71  RND  *=17  THEN  _fT  : 
=P4B3ø  FOR  9=0  TO  43  BEEC  ,0^: 
z  9  LET  Fu  =  fu*£5;  PRINT  flT  £3," 
INK  4-;  ^u  :  NEXT  5  :  PRINT  rt  H  ^ 
INK  7;  13  FULDE  TANKE,  ^E 

T  s  S  = "  f  y  f  c-  u  u  )  L  *  e  i  n  9  )  s  f  i  u  K  >  L ' 
BI03  IF  x  >  =37  RND  a=18  OR  3=15  " 
HEN  LET  £  f e" K  r  (€  h >  <  SK )  « i  :  t  h ) g  r  i 

Owifid"  :  yO  5 UB  £X2:  GO  SUB  Print 
:  PRINT  RT  26  ..  øj  " 

"  /  RT  c  j b ;  DUB* 

lj  INK  5,  IJ"  j  RT  11/7;  OUER  2.; 

RETURN 


5930  NEXT  X :  PRINT  RT  11,9;  INK 

Tf  ,B  .  1:1 

5910  IF  fu  < =£33  THEN  LET  fu=l 
5923  PRINT  RT  c,bj  INK  5;  OUE^  1 
j'  IJ1’  RND  C  o -i 
5993  RETURN 

6303  REM  ^udskrivning* 

6323  PRINT  AT  £0/0;  BRIGHT  1  in 
K  4;  "BENZIN:  11 ;  fu;  "  J,;RT  20  15  - 

OINT ;  " ; P  j  RT  21,1;  c  ft  tq  LEN  C  $  * l 
LEN  c$<ll)  411*  (LEN  C  $  >  2  i  j  ;  "  "/ 

HT  £1  /  15;  "TOC>  :  ";  h 
6030  IF  c*=""  THEN  Gu  TO  6530 

6100  RETURN  _ 

6500  PRINT  RT^^i;  INK  6:" 

PP]É  E 

OUEB" 

6535  IF  P  >h  THEN  LET  h =P  BEEP 

1  lø ■  EE^R  ,1,15  BEEP  ,2,20  PR 
INT  RT  21,21;  INK  4;  FLR5H  l,h 
F:0R  f  *  1-  TO  5  POKE  60016/  f:  LET 
qq=U5R  30300  NEXT  f 

b  53b  j_ET  s  f  =  '  g  t  a  a  )  n  <  o  o  j  >  a  r 
6507  IF  INKEV4 { > ""  THEN  GO  Tø  65 
37 

6510  FOR  f=33  TO  4-3:  BEEP  *005,  F 
:  NEXT  f 

6515  IF  INKE’v'f  =  " "  THEN  GO  T0  65  2 

5 

6520  CL5  :  LET  fL*l 

6600  RETURN 

øøøø  REN  »indledning# 

8335  PRINT  RT  2/11;  INK  6;,fB,L,K 
OG  L  3" 

8310  PRINT  RT  5/13;  BRIGHT  l  IN 
K  2; "KONTROL  " j  RT  5/ 13; "OP  O"  ; 
RT  10/13;  "NED-  fl";RT  12/9,'lDU  5K 
YDER  HED  Y " ; RT  18,8; "TRYK  PRR  EN 
TR3T !  " 

8320  JF  INKEY  5 ( >" "  TrtEN  RETURN 
6350  FOR  fmQ  TO  63  STEP  6-  BEEP 
. 305 , f :  NEXT  f ■  FOP . f =BØ  TO  3  3T 
EP  -6:  BEEP  *305, f:  N£kT  f  GO  t 
0  S02ø  ■' 

9033  FOR  9-1  TO  13:  RERD  ål  FOR 
fsø  TO  7:  RERD  3:  POKE  U5P  af+f 
/ a  NEXT  f;  NEXT  9 
9010  FOP  f =6000®  TO  60021;  RERD 
a  POKE  f,a:  NExt  f 
2251  DRTR  "a" ,BIN  00010001 /BIN  ø 
øø  1301 i , 5 IN  08018011, BIN  3301301 
1/BIN  øøølllll, 8IN  01331111 ; £55 ■ 
£55 

9052  DRTR  " b'1  .  125 , BIN  11003023.5 
IN  11000011 / BIN  lløøøøll . BIN  llø 
øøøll / BIN  11011311 / £55 , 255 

9054  DRTR  "c "  ■  126 , 13S /BIN  101331 
30 / 8 IN  11100100 /BIN  11113108 ,SIN 

11110133.BIN  11113130/255 

9055  DRTR  "d" ,3/0, 3,8/3, BIN  3133 
0181/ BIN  31333102/255 

9356  DRTR  :e"  255,255,ØIN  il 1331 
11, BIN  lløøøl 1 / BIN  øløøøll, BIN  3 
løøøl  1 BIN  3138001/8 

9357  DRTR  " f " , £BS / £55 , £35 / BIN  33 
111001 /BIN  øø lløøøl, BIN  03213331 
/EIN  00100000, BIN  00103033 

9356  DRTR  "g-1  8/BIN  12130311  BIN 
00101111/255  BIN  00101112,255  i 
7/BIN  11230022 

3359  DRTR  K  '  3 /BIN  11183330  i£5 
/ 6 IN  21111103  255/BIN  11123033,2 
£3 /BIN  12230330 

9363  DRTR  " i " , 1 , 2 , 7 , 8 , BIN  øølllø 
00/3,8, 7 

9061  DRTR  ,Jj‘'/6lN  21112130/2  BIN 
11110010,14/ 24, 12, S/BIN  1122033 
3 

9362  DRTR  "k" ,0/0,0/0,255/3,0,8 

9363  DRTR  1  L",BIN  llllØØlø/BIN  3 
0801101 /BIN  lllløllø  BIN  8310112 

2  BIN  11888111 /BIN  øøølløøl, BIN 
1110110/BIN  11810810 

9864  DRTR  :Y?"/BIN  18802883  BIN  3 
8010018  j BIN  00110021/BIN  1138813 
0  BIN  11111813 /BIN  00101003 /BIN 
øø  100 108 / BIN  30013013 
9873  DRTR  33,8,0/6,255/17,1/3,19 
7 / ££9 / £05 ,181/3, £25 , 193 / 1? ; 3  8/2 
5 . 16 /£43 ,281 
9999  PETUPN 
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10  PRINTE" 

50  FORJ=49152T043 152+595 
60  READ  XsROKEJ ,X:U=U+X 
70  NEXT  J 

80  I  FIJ<  >77887  THEN  PR  1  NT  "FEJL  I  DATA  H  i  END 
90  PR  I NT "DATA  OK," 

38  PR 1NT "SAVES  SON  'SPRITE  BASIC" 

35  A$  = "SPR I  TE  BASIC" =POKE 187 ,PEEK< 71 ) 

97  P0KE18S,PEEK< 72> : A=PEEK<  1 38  ) *256  +PEEK^  187) 
100  P0KET83  ,PEEK<  A> :pøKEl87,PEEK<  A+l ) 

102  POKE 1 B3 , PEEKX A+2 ) i P0KE25 UO  * PQKE252 , 132 
104  POKE 185, 1  i POKE 18S , 1 :P0KE780 ,25 1 
106  POKE 78 1  ,35 l PQKE782 , 1 94 

108  SYSB5496 -  END 

109  REM 

110  DATA  83 , 30 , 32 , 73 ,84 ,63 ,85,63 ,88 ,73 
120  DATA  68 , 63 , 77 , 35 , 76 ,34 ,73 ,87 ,80 ,76 
130  DATA  65  ,67 , 69 , 82 , 83 , 70 , 65 , 82 , 86 ,69 
140  DATA  3  3  ,80  ,66  ,76 , 73 , 75 ,75 , 79 ,76, 76 
150  DATA  73 ,39 , 75,73 ,76 , 76 ,73 ,66 ,237 , 1 32 

160  DATA  48 , 133 , 1 17 ,133,1 45 , 193 ,220 , 1 33 ,14,1 94 
170  DATA  45 , 1 94  , 67 , 1 94 , 169 , 1 92 ,141  ,3,3,1 63 
180  DATA  75,141,9,3,96,32,115,0,201,35 
130  DATA  240,6,32,121,0,76,231,167,32,34 
200  DATA  192,78,174,167,162,0,32,115,0,157 
210  DATA  0,197,232,224,6,144,245,169,0,141 
220  DATA  255,207,133,251,133,192,133,252,160,0 
230  DATA  177,251,217,0,197,208,8,200,132,6 
240  DATA  144,244,76,156,132,162,6,238,255,207 
250  DATA  230,251,202,208,251,165,251,201,64,144 
260  DATA  223 , 169  ,0,76,255, 174, 173,253,207,10 
270  DATA  170,193,48,392,133,251,189,43,  132,133 

280  OATA  252,108,251,0,170,169,1,224,0,240 
230  DATA  4,10,202,203,252,96,32,115,0,32 
3 DO  DATA  1 38 , 173,32 ,247 ,183, 165,20,201 ,8  , 176 
310  DATA  1 ,96 , 76 ,72 , 179 ,32 , 253 ,174 ,32 , 1 38 
320  DATA  173,32,247,193,165,20,201,2,176,239 
330  DATA  36,32,253,174,32,133,173,32,247,183 
340  DATA  165,20,201,16,173,222,36,32,186,192 
350  DATA  32,174,192,141,255,207,32,205,192,201 
360  DATA  0,240, 12 , 173 ,255,207, 13,2 1 ,209 , 141 
370  OATA  21,203,76,20,193,173,255,207,73,255 
380  DATA  45,21,208,141,21,203,32,205,132,201 
330  DATA  0,240 , 10 , 173,255,207, 13,28,208, 14 1 
400  DATA  28,208,96,173,255,207,73,255,45,20 
410  DATA  208,141,23,208,96,32,186,192,32,174 
420  DATA  192,141,255,207,32,205,132,201,0,240 
430  DATA  12,173,255,207,13,29,208,141,29,208 
440  DATA  73,98,133,173,255,207,73,255,45,29 
450  DATA  208,141,29,208,32,205,192,201,0,240 
460  DATA  10, 173,255,207, 13,23,209 , 14  i  ,23,203 
470  OATA  96,173,255,207,73,255,45,23,208,141 
480  DATA  23, 208, 96, 3É, 1 15,0,32, 138, 173,32 
490  DATA  247,183,165,20,201,16,176,10,141,37 
500  DATA  208,32,221,132,141,38,208,96,76,72 
510  DATA  I 78 ,32 , 196 , 1 92 , 10,141 , 255 , 207 , 32 ,253 
520  DATA  174,32,138,173,32,247,183,165,20,174 
530  DATA  255,207,157,0,208,185,21,201,2  ,176 
540  DATA  223,168,138,74,32,174,192,182,1,144 
550  DATA  8,13,16,208,141,16,208,76,202,133 
560  OATA  73,255,45,16,208,141,16,208,32,253 
570  DATA  174,32,138,173,32,247,133,165,20,174 
580  DATA  255,207,157,1  ,208,36,32,186, 19£, 141 
590  OATA  255,207,32,221,132,174,255,207,157,39 
600  DATA  208,32,205,192,201,1,144,13,173,255 
SIO  DATA  207,32,174,192,13,27,208,141,27,208 
620  DATA  3B, 173 ,255 ,207,32, 174, 132,73,255,45 
630  DATA  27,208,141,27,208,96,32,186,132,141 
640  DATA  255,207,32,253, 174 ,92, 138, 173,32,24? 
650  DATA  133,165,20,201,11,144,7,174,255,207 
660  DATA  157,248,7,96,76,72, 178,32,186,182 
670  DATA  32,174,182,45,30,208,240,3,76,78 
680  DATA  194,32, 1 15,0,201 ,58 #200, 249 ,96, 32 
690  DATA  106,192,32,174,192,45,31,208,240,237 
700  OATA  32,253,174,76,160,168 
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■  Sprite  Basic  til  Commodore 
64  giver  dig  8  nye  komman¬ 
doer  til  styring  af  sprites. 

Disse  kan  indtastes  som  al¬ 
mindelige  kommandoer, 
dog  med  en  pil- venstre  foran. 
Når  programmel  er  indtastet, 
laver  den  BASIC  programmet 
om  til  maskine-kode.  hvoref¬ 
ter  dette  skal  lægges  ned  på 
bånd.  Siden  skal  det  loades 
med  LOAD  "  '  M ,  L  De  ekstra 
kommandoer  er: 

Sprite  nr.on/off.multicolor 
(on/off) 

Udvide  ni , x(on/ off ), y(on , of I) 
Multic  mclrmc2 
Placer  nr,x,y 

Siarve  nr , farve  .prioritet  til  tekst 


o  =  høj 
1  =  lav 

Spblok  nr. bloknummer 
(11-255) 

kollis  nr  .linienummer: 
kollib  nr. linienummer: 
on-1 
off  =  o 

nr = spritenummer(Q- 7) 

De  otte  kommandoer  er  selv¬ 
forklarende  på  nær  kollis  og 
kollib.  De  skal  begge  inde¬ 
holde  sprite  nr.  og  derefter  det 
første  linie  nummer  på  den 
subroutine,  som  computeren 
skal  hoppe  til.  hvis  der  sker  en 
kollision.  Det  kan  sammenlig¬ 
nes  med  li  then  go  to.D 

Bo  Johansen 
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5ø  MODE  2 :  f  a.ct=  1 
6ø  GOSUB  løø 
7ø  GOSUB  36ø 

80  GOSUB  336  / 

30  GOTO  41ø  (  ff' 

løø  REM  ruti  ne  der  fastsaetter  attack  f  decay ..  sustairr  o 9  re lease  j 

llø  REM  for  ENV  ud  fra  indtastede  tal  \l  &  #, 

120  PRINT  "0=  attack  tid  1  -  127  C hundrededele  sek  >" 

13ø  PRINT  "C-  decay  tid  1  -  127  < hundrededele  sek  >" 

146  PRINT  "S*  su.  s  ta  in  niveau  1-15"  /  -_:-i 

15ø  PRINT  "Ri  re lease  tid  1  -  127  (hundrede le  sek  )"  ,  (^r— - — 

16ø  INPUT  "indtast  fl,0,S,R  " ;  at  id?:,  dtid*,  sus  1 7.,  rt  id*  A  VY— — 

170  IP  atid5j<15  THEN  190  Vss/y— - 

1 3ø  ass*=  1  ■  aas!;- 1 5  s  ast!;=  I  NT<  at  i  dZ/ 15;-  GOTO  200  VW' 

1 9ø  as t*= 1  =  aas!£=at  id* ! ass*=INT(  lS^ati  dZ  >  * 

200  ilev5j»15-<aasJs*ass!i>  - — 

210  ddr.jf  ■■;=  1 5-sus  l  •; 

22ø  IF  dt  i  d*<  ddroP *  THEN  249  -  — '~\k 

230  dss7.=-l :  dask.=ddroP  * :  dst*=CINT<  dt  i  d^ddroP  *  >  =  GOTO  25ø 

240  dst>;=  1  i  das*=d t i d!i :  dssk;=INT(  ddroP  *fdt i dZ  >  ■■  dss Z=ds $Zt~  1  ,  \ 

25ø  IF  r-tid*<£U£l*  THEM  270  \  1 

26ø  rs.s*=-l ;  ras*=su.s  l  Z •  rst%aC  I  NT(  rt  i  d*fsus  I  *  > :  GOTO  230 

27ø  rst*=l  !r-a£*=rtid*:rss*=CINT<£usl*''rtid*}!r-s£*=i''£s**-l  ^ 

23ø  sus t*=dur*-at  i  dk.-dt  i  d*-rt i d*  W 

29ø  IF  sust?!<  1  THEN  sus 1 2=1 

3øø  t2Z=t\Zs2  _ 

310  t3*=tl*/3 
320  ZONE  6 

33ø  PR  I  NT  "  start " , "  attack " , , "  decay  "susta  i  n " , .. "  re  1  ease " 

340  PRINT  i  lev*, aas *,  ass*,  ast*,  das*,  dss*,  dat';..  1 ,  ø ,  sust*,  ras*, rss* ,■  rst* 
350  RETURN 

36ø  INPUT  "  tone  laen9de  (i  hundrede  le  sek  >  " ;  durk. 

37ø  GOSUB  170  i  REM  9enbere9r.  ENV  Parametre 
33ø  RETURN 

39ø  I  NFUT  "overtoneniveau  for  2,  o9  3.  harmoniske  <  ø-7  J" ;  v2*,  v3* 

4øø  RETURN 

41ø  REM  rutinen  omsaetter  tasterne  til  toner  ^ 

420  REM  tasterne  i  raekke  z-f  er  de  hvide  tan9enter 

43ø  REM  tasterne  mellem  s  o9  1  9  i  ver  de  sorte  tangenter 

44ø  p  *=ø  ri 

450  k ®= I NKEY4 : REM  to  ernPty  input  buffer 

46ø  IF  k$=" 1 "  THEN  GOSUB  løø 

470  IF  kS="2"  THEN  GOSUB  360 


480  IF  k$="3"  THEM  GOSUB  390 
490  IF  k*="4"  THEN  fact*fact#2 
500  IF  k$="5"  THEN  fact=facV2 
510  IF  NOT  INKEYC  71  >  THEN  P*=478 
520  IF  NOT  INKEYC Sø >  THEN  P*=451 
53ø  IF  NOT  INKEY<  63  >  THEN  P 2=426 
540  IF  NOT  INKEYC 61 >  THEN  P 2=402 
550  IF  NOT  INKEYC  62  >  THEN  P*=379 
560  IF  NOT  INKEYC  55  >  THEM  P*=358 
570  IF  NOT  I HKEVC  52  )  THEN  P*=338 
5Sø  IF  NOT  I NKEY(  54  >  THEN  P*=319 
59ø  IF  NOT  INKEYC 44 >  THEN  P*=301 
6øø  IF  NOT  I HKEY(  46  >  THEN  P*=284 
610  IF  NOT  I NKEY(  45  >  THEN  P*=26S 
620  IF  NOT  INKEY(  38 )  THEN  P*=253 
630  IF  HOT  INKEYC 39 >  THEN  P*=239 
640  IF  NOT  INKEYC  36  >  THEN  P*=225 
650  IF  NOT  INKEYC  31 >  THEN  P*=213 
660  IF  NOT  INKEYC 29)  THEN  P 2=20 1 
67ø  IF  NOT  INKEYC 30)  THEN  P'-;=I9ø 
60ø  IF  NOT  INKEYC 22 >  THEN  P*=179 
69ø  IF  HOT  INKEYC  13  >  THEN  P*=169 
7øø  IF  P*=4*  THEN  41ø 
71ø  q*=P* 

720  IF  PZ< >ø  THEN  74ø 
730  GOTO  46ø 
740  REM 

75ø  REM  rut  i  ne  der  sP  i  1 1  er1  tonerne 

760  REM 

77ø  P*=P*#fact 

780  o5i=PJ!/2 

790  o2Z*P‘/./3 

8øø  ENV  1 1  aas*,  ass *,  ast*,  das'; ,  ds s* >  dst* ,  1 , 0 ,  su 
81ø  SOUND  l,P*,ø,  i  lev*,  1 
820  SOUND  2 ,  o* ,  dur*  ,  v£* 

830  SOUND  4 , o2*,  du.r*,  v3* 


52ø 

530 

540 

550 

560 

570 

58ø 

59ø 

6øø 

610 

62ø 

63ø 

64ø 

650 

66ø 

67ø 

600 

69ø 

7øø 

71ø 

720 

73ø 

740 

75ø 

760 

77ø 

780 

790 

800 


Amsynth 


Dette  program  kan  være  en 
stor  hjælp  tor  dem,  der  synes 
at  ENV-kommandoen  på 
Amstrad  er  forvirrende  Pro¬ 
grammet  simulerer  en  syn* 
thezlsen  forstået  på  den  må¬ 
de  at  man  kan  indtaste  vær¬ 
dier  for  Attack,  Decay,  Susta- 
in  og  Release,  hvorefter  prog¬ 
rammet  udskriver  de  tilhøren¬ 
de  værdier  til  ENV  De  lo  ned- 
erste  rækker  på  tastaturet 
kan  deretter  bruges  til  at  spil¬ 
le  nogen  toner  med  den 
valgte  ADSR, 

Attack  er  det  antal  hundrede- 
le  sekunder,  tonen  er  om  at 


nå  op  på  fuld  styrke.  Decay 
er  det  antal  hundrededele  se¬ 
kunder,  tonen  er  om  at  falde 
til  sustain-niveau.  Sustain  skal 
ligge  mellem  0  og  15,  Re  lea¬ 
se  er  det  antal  hundrededele 
sekund  tonen  er  om  at  fade 
helt  ud.  Mens  man  spiller  kan 
A,  D,  S  og  R  ændres  individu¬ 
elt,  ligesom  oktaven  kan  flyt¬ 
tes  op  og  ned. 

1  ændrer  ADSR 

2  ændrer  tonelængde 

3  ændrer  overtoneniveau 

4  flytter  en  oktav  ned 

5  flytter  en  oktav  op  □ 

Jørgen  Rasmussen 


t_-  ‘  f  ‘  .3,  *  7  r  '  ‘  m  ■■  t"  ’ 1  ' , 


SOUND  4 ,  dur 5:.  v3^ 

GOTO  4 
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20 
30 
40 
50 
60 
70 
BO 
30 
lOO 
1  10 
120 
130 
140 
150 
ISO 
170 
330 
130 
200 

3  10 
220 
230 
240 
250 
260 
270 
230 
230 
300 
310 
320 
330 
340 
350 
360 
370 
380 
330 
400 

4  10 

420 

430 

440 

450 

4B0 

470 

430 

430 

500 

510 

520 

530 

540 

550 

560 

570 

530 

530 

600 

610 

620 

630 

640 

650 


■  1  Meteor  tifCBM-64  gælder 
det  om  al  unslippe  en  at  de 
store  tarer  i  universet,  de  store 
meteoritter,  som  svæver 
rundt  og  bliver  tiltrukket  at  de 
enorme  planeler  Program¬ 
met  er  meget  struktureret  op- 
bygget  med  en  masse  rem- 
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REM  * INITIAL I S  E  R  I NG * 

REM  **************** 

PRINTCHRstt  147): RESTØRE  1 GOSUB  1080 
P0KE5323 1 ,  0 : P0KE5328G ,0 ' PDKES50 , 123 
CLR  =  K  =  3  :  S =5 : B  = 1 £ F  =  -5 £ V=53243 : L=54272 

P0KE2040 , 132 : P0KE2O4 1  ,  133 : P0KE2042 ,  134  : P0KE2043 , 135: POKE2044 , 130 
FØRQ=OTQ62 :READA : POKEQ  + 12233 ,A £NEXT 
F0RQ  =  0T062 : REAPA : POKEQ + 12352 ,A : NEXT 
FDRQ  =  0T062 : RE ADA : POKEQ  + 12416 , A : NE  X  T 
F0R0  =  0T0S2 i READA : POKEO  + 1 2430  ,A  £  NEXT 
FDRQ  = O TO 62 : READA  ?  POKEQ  + 12544 ,A:NEXT 

POKEV +33  , 1  =  POKEV +40 , 7 i  POKEV +4 1,2: POKEV +42 , 15: POKEV +43 , 13 
POKEV +23 ,3 SP0KEV+23 ,3 
PRINT  CHRS<  147 > : PQKEV  +  2  1  ,0 

FORQ  =  OTO 1 00 : Z  =  INT<  333*RNO(  1 > )  :POKE 1024+Z  , 46 £ POKE 1 024 +  Z +54272 , 7 : NEXT 
FORQ= 1344T02023: POKEQ,  1 60 : FOKEQ+54272 ,3 :  tCXT 
FØRQ“0T02 : POKEQ  + 1 32 1 , ISO: POKEQ  +56 133 , 13: NEXT 
F0RQ-0T038 : POKEQ  +  1  1 04 , 45 : POKEQ +55376 , 1 :  I^XTQ 
REM  *  *  *  **  *  w e*  * 

REM  +3TYRING* 

REM  ********* 

X= 160 : Y  =  2G5 : POKEV +  7 ,0  £ POKE V +30 ,0  £P0KEV  +  2  1  ,0 

F F  =  I NT K 200*RND<  1 > +25 ) : CC =3 : SA  = 1 7 : C  =  X : F  =  F +5 :  IFRND<  1 >  > . 35THENCC= 1 6 
F0RQ-0T0255STEPS:  PRINT  HHSK  IBE  *K  “■  IFOINT  "F  41  ft  33  ANE  "B 

Y  =  Y+  .5:1  =Y  ;  O  =G  i  P  =  0  :  N=PEEK<  56320  )  -  1  17  £X=X+3*<  N-SORN=5>  -S*«;  N=2QRN=  1  > 

Y  =  Y  +  2*<  f4=3ORN=50RN-  1  )  -2 *<  N  =  3  ) 

X  =  X  +8  X  >  =  255  3  -3 *<  X<  =0?  £  Y=Y  +  2*(  Y>=£05 
1F  Y< SOTHEN  1000 
IF  PEEK<  V  +  30  )  =  3  THEN  GOT0330 
I FY< I THEN  0-2 : P-4 : G0SUB76G 
POKE V +21 , 1 +CC+0 

POKEV ,X  =  POKEV+ 1  , Y : POKE V +2 , X : ROK E V  +  3 
POKE V +4 ,Xt  POKEV+5 ,Y  +  25  t POKE V  +  2 1  , 1 +CC 
POKEV  +  6 ,C  £  POKEV  +  7 ,Q  £  POKEV +8 ,FF  : POKEV 
POKE V +2 1  ,  1 +CC+0 
POKEV +  2  1  ,  1 +CC+P 
I F Y >  = I  THEN  POKEL+4,123 
IFPEEKC V+30>=SA  THEN  GOSUB  770 
NEXT 
G0T024O 

REM  ************** 

REM  *  O  A  T  R  RUMSKIB* 

REM  ************** 

DATAO  ,24 ,0 ,0 ,24 ,0 ,0,60 ,0 ,0 ,60 ,0 ,0 
DATA!  ,255, 128 , 1  ,255 , 123, 1  ,255 , 128 
DATA  128 , 1  ,255 ,123,0,24,0,0,60,0,0 
REM  ************** 

REM  *DATA  FLAMME  1* 

REM  **************  d 

DATAO ,56 ,0  ,0 , 120 ,0 ,0 , 124 ,0 ,0  , 124,0,0,252 ,0,0,252 , □ , O , 1 26 , O , O , 63 , 0 , O , 83 , 1 23 
O ATAO ,127,182 ,0,255 ,132,1  ,255 ,192,1  ,255 ,132,3 ,255 , 132,3,255 ,128,1  ,255  ,G  ,0 
DATA254 ,0,0,124,0,0,60,0,0,80,0,0,24,0 
REM  ************** 

REM  *DATA  FLAMME 2* 

REM  ************** 

DATAO ,24,0 ,0,00,0,0,62,0,0, 127,0,0,255, 123,1 
DATAO ,  1  ,252  ,0 , 1  ,254  ,0,0  ,255 ,0,0,127,128,0,63 
O AT A62 ,0,0 ,82,0,0,28,0,0,56,0 
REM  ************* 

REM  *DATA  METEOR* 

REM  ************* 

DATAS ,0,0,7 ,28,0 , 15,130,0,31 ,255,0,63,254,0, 127,252, 132,255,253,240,255 
0ATA253 ,243 , 127  ,255,248  ,255,255 ,252 ,255,255 ,254 ,255,255,255 , 127,255,255 
DATA  127 ,255,254 ,83,255 ,255,63 ,255,255,3  1  ,255  ,254 , 13,255 ,254 , 13,255,252 ,3 


sætninger,  så  den  kreative 
programmør  kan  bygge  vi¬ 
dere  på  det.  Men  de  kan 
selvlølgelig  alle  undlades  De 
symboler,  der  er  i  nogte  print¬ 
sætninger  er  cursor-  og  farve- 
symboler  Ellers  er  program¬ 
mer  selvforklarende .  □ 

Carsten  Kock 


126,0,0,255,0 


255, 12S;3,255 ,0,3,255,0 , 1 ,254 
123 ,0 ,83 ,0 ,0, 127,0,0 , 127,0,0 


28  Sott  Special 


730 

740 

750 

7B0 

770 


B60  DATA 127 ,E5£ ,0  ,  BO  ,58 
B70  REM  ************** 

830  REM  *DATA  SATEL  IT* 

890  REM  ************** 

700  0ATA0,2,0,23, 1  ,0,22,0,138,16,1  ,64,84,223,32, 13,254,0,3,855,0,7,13  1 ,128,7 
7  10  DATA 3 1,188,15,191,138, 15,855 ,132,15,831 ,840 , 7 ,83 1 , 1 44  ,7 ,83  1  ,  150,3,855 ,80,1 
7  80  0ATA254 ,30,1,80,4,0,46,6,0, 180,0,0,858  ,0 ,0 ,0 ,0 
“  REM  *********** 

REM  *LTORUT INE  * 

REM  *********** 

P0KE542S6, 15 ! POKEL  +  5 ,68 1 POKEL  +  6 , 63  i POKEL ,25 : POKEL+ 1 ,5SP0KEL+4, 123  i  RETURN 
P0KE54S36 ,  15  : POKEL+5 ,68 i POKEL  +  S ,63 : POKEL  ,37! POKEL + 1  ,  17 : POKEL +4 , 33 
7S0  POKEL +  4 ,38  i  S  ft  =255  !  F  =  F  +35  !  CC  =  0 :  RETURN 

730  P0KE54836 , 15  i POKEL  +5 , 1  O ! POKEL +  6 , 68 ! POKEL , 18  i POKEL  +  1,1! POKEL +4 , 183 ! RETURN 
800  REM  ************* 

3  10  REM  *  S  AMMMENS  TOO  * 

SEO  REM  ************* 

830  G0!~'JB73D;  FORW  =  OTOSO  i  P0KE532S  1,0:  P0KE5 3880 ,255 
S40  P0KE53291  ,855 : P OK E 5 3230 ,0 : NEM TU 
850  K  =  K -  1 : POKEL +4 ,188:  IFK=QTHEN9G0 

P0KE5328 1  , 0 : P0KE53230 , O : POKEV  +  2 1  ,0 : GOTO  150 
REM  ********** 

REM  *3LUTN ING* 

REM  ********** 

POKEL+4 , 123 

PR  I  NT  "LT  i  POKEV+2  1  ,0i PGKE5323  1  .  5  :  POKESSPRO  .  5  :  PR  I  NT  ”  0VER  " 

PRINT  *■  Wm&3æE33J  I L  DU  PROVE  IGEN  3/  NH 
GET  A$=IF  A*  = " J "THEN40 
IF  A*=*NM  THEN  END 
GOTO  930 
ENG 

REM  ********* 

REM  *NY  GANE* 

PEM  ********* 

1000  POKEL +4 , 123  s  B  =  B  +  1 : POKEV  +  2 1,0; PR  I NT "J" 

loio  pr  int*  tu  ykkf  du  gennemforte  11 ;  pr  i nt 

1020  PR  TNT  »  n  OG  LYKKE  MED  BANE  “ B  :  S  +5  !  F  =F  +50 

1030  FQRQ-0T03000 *  NEXT ! GOTO  1 50 
1040  REM  ******************* 

1050  REM  *START/ INSTRUKTION* 

1080  REM  ******************* 

1070  P0KE5328 1 rl \ POKE532SO ,7 


1030 

PRINT  "iJ" 

i FORG= 

0T02S 

i  PRINT: 

NEXT 

1030 

PR  I NT " 

*  * 

*  ** 

*** 

*  *  * 

**  * 

** 

1  100 

PR  3  NT " 

**  * 

* 

* 

* 

*  * 

* 

1  1  10 

PR  INT,J 

*  * 

** 

* 

*  * 

*  + 

** 

1  120 

PRINT" 

*  * 

* 

* 

* 

*  * 

* 

1  130 

PRINT H 

*  * 

*.  *  * 

* 

*  ** 

*** 

* 

* 11 
II 

* " 

* n 

1140  F0RG=0T03: PR INTINEXT 

1150  PR  I  NT  "M  1  1  1  I  11  M+raa-jfejttY  C.U.K.” 

1  160  FORQ  =0T0 100 : P0KE5328 1 , S  i P0KE5328O , 7 : P0KE5323 1  ,7: P0KE5323O ,0 : NEMT 
1170  PR  INT'’J"  :PR  INT  "HSHfflaaOU  ER  KAPTAJN  PAA  ET  RUMSK  IB" 

1130  PRINT: PR  I NT "EN  FARE  AT  VEO  FLYVE  RUMSKIB  ER  AT  MAN" 

1130  PRINT "KAN  BLIVE  RAMT  AF  EN  METEOR  INDEN  MAN" 

1200  PR INT"SL I PPER  FOR  TYNGDEKRAFTEN" 

1810  PR  I NT "SAA  PAS  PAA !  M  " 

1280 
1230 
1240 
1250 


PR 1NT ! PR  I NT "DU  FAAR  FOR  HVER  BANE  50  POINT" 

PRINT "FOR  HVER  LOBSKE  SATELIT  85  POINT" 

PRINT "OG  FOR  HVER  METEOR  DU  SLIPPER  FORBI  " 

PR  I  NT  "5  PO  I  NT"  :  PR  I  NT  i  PR  I  NT  "HELD  OG  LYKKE  "  :  PR  !N^  finr^T^T^T^T^T^T^r*:  pr- 


3 


RETUR 


N  '* 

1280  GETASi IFA*=CHR$<  13)THEN  RETURN 

1270  GOTO  1 26G 

1230  REM  **************** 

1230  REM  *  METEOR  BY  * 

1300  REM  *  CARSTEN  KOCK  * 

1310  REM  *  URTEHAVEN  12  * 

1320  REM  *  4300  HOLBAEK  * 

1330  REM  **************** 


Soti  Special  29 


■  Du  er  kaptajn  på  det  vældi¬ 
ge  slagskib  "Fearless".  Den 
fjendtlige  eskadre  er  for  et 
øjeblik  kommet  ind  i  række¬ 
vidde  af  dine  15  tommer  ka¬ 
noner,  Skyd  fjenden,  inden 
han  når  at  forsvinde.  "Eng¬ 
land  expects  that  every  man 
does  his  duty!" 

Imperiets  fremtid  afhænger 
af,  hvordan  du  skyder  med  0- 
tastenin 

\^\  Morgen  Poulsen  og 

Henrik  Brinck 


j 


1  REM  ****$K10S  SKYDNING**** 

2  FQR  f-ø  TO  7  i  READ  &■  PQKE  USR  "A,£- 
f|A:  NEXT  f 

3  DATA  BJN  00000000, BIN  1  I ] 00000,8IN 

1 1  iøøøøø,  bjn  ømiiiUBiN  øøiiiin.ejiM  ø 
øøi i n i »  b in  øøøø  1 1 1 1 , b i n  00001 i  i  i 

4  FOR  »=ø  TO  7:  READ  a  =  ^OKE  USR  "  B "  + 
NEXT  I 

5  DATA  BJN  001 1 J 1 1 1 , BIN  001 1J11I, BJN 
mimijBiN  nninijBiN  innnnBjN  i 

mim, bin  niini hbjn  mmn 

G  FOR  f-ø  TO  7  i  READ  a-  PORE  USR  "C‘  t 
f,4:  NEXT  f 

7  DATA  BJN  00000000, 8IN  00000000,BIN 
umiJø,BiN  ninuøiBiN  mmøø^BJN  j 
mnøøiBJN  mnøøø.BiN  mnøøø 

S  FOR  ( =0  TØ  7  :  READ  *;  POKE  USR  "0"  + 
NEXT  f 

3  DATA  BIN  00000000,  B 1 N  00000000,BJN 
000 llllØiBlN  000 1 1 1 1 ø , B I N  øøøøl 100, BIN  0 
øønnnejN  øøønuiiBjN  00111111 

10  FOR  f  =0  TO  7:  READ  a  :  PQKE  USR  "E'  + 
f,a:  NEXT  f 

11  DATA  BJN  øøøøøøøø, BIN  00000000,BIN 
0000 1 1 00 , B 1 N  0000 1 J  00, B  J  N  00001100, BIN  0 
0011111,  BIN  ØØØiniljBJN  00111J1J 

12  LET  HJ-Ø:  LET  Fø-Ø:  LET  SC-Ø:  l£T  A 
;  ■’  -  lET  q  =  21  :  lET  p  “0 

13  CLS  ;  PRINT  AT  lø,0;L,HUOR  MANGE  FOR 
SØG  UIL  DU  HAUE?"  :  INPUT  ;A:  PRINT  AT  20 
, ø ; "0, S :  SUAERHEDSGRAD  1  ER  DEN  SUAERES 
TE":  PRJNT  AT  3  0, ø  i  "SUAERHEDSGRAD  Cl -50) 
?"  :  INPUT  R 

34  PAPER  ø:  BORDER  0:  INK  7;  BRIGHT  1: 

CLS  i  LET  B-29 -  LET  C=A :  LET  Y-0 

15  PRINT  AT  0,0 j" SCORE =" JSC; 

16  PLOT  0,37:  DRAU  255,0:  PRINT  AT  9. J 

+B;  BRJGHT  PRINT  AT  30,  B|  BRIGHT 

0 i 11  abc"  :  PAUSE  5:  PRINT  AT  9,1+  Bl  BRJGHT 

ØTe";  PAUSE  R:  BRIGHT  H  PRINT  AT  9,  \t 
Bi"  "i  PRINT  AT  30,6;"  !l  :  PRINT  AT  9, 
15;" I " :  PRINT  AT  12, 15;" \ " 

17  IF  J NKE "0"'  THEN  LET  p  =  1 

IB  IF  p  =  \  THEN  PRINT  AT  ^,15;"  "  :  lET 

q^q-2.  75:  PRINT  AT  q,  15  :1 

19  IF  q-10  AND  b  =  1 5  THEN  LET  SC-SC+Jø 
:  lET  P-ø:  LET  0-21  ;  lET  Y=Y  +  H  FQR  A=ø 
TO  6ø;  BEEP  ,005,10:  BEEP  ,005,20:  BEEP 
,005,A-20:  BEEP  *005,A:  NEXT  A:  PRINT  AT 

0,0;" SCORE”"  iSC  ;  :  IF  SC-100  OR  SOIØØØ 
OR  SC-5000  THEN  GO  TO  35:  GO  TO  15 

20  IF  Q-Iø  THEN  PRINT  AT  10, 1 4  ; " \ : 

LET  P=0  ■  LET  0=2J  :  POR  A^Ø  TO  20 :  NEXT 

A;  PRINT  AT  10,  Hi" 

21  IF  b=ø  AND  c -0  THEN  GQ  TO  1 

22  IF  b“ø  THEN  LET  b  =  23;  lET  c-c-1 

23  JF  c-0  THEN  PAUSE  150:  GO  TØ  25 

24  LET  B=B-J :  PRINT  AT  ø , 1 B i "FORSØG- " ; 

C  i "  "  :  GO  TO  16 

25  CLS  :  PRINT  AT  10, 3;  "DU  RAMTE  ”  ;$C/ 
10  l'1  UO  AF  "  ;A ;  "  MULIGE" 

26  PRINT  AT  12,2;"  UIL  DU  PRøUE  IGEN 


25  CLS  :  PRINT  AT  10,3;  'DU  RAMTE  ■*  ;SO 
10  r  UO  AF  ■■  ;A ;  "  MULIGE" 

26  PRINT  AT  12,2;"  UIL  OU  PRØUE  IGEN 
fj/NJ  ,F 

27  IF  INK£T$-"N‘-  THEN  GO  TØ  32 

28  IF  I NKE Ys="n "  THEN  GO  TO  32 

23  IF  INKEY4=" j "  THEN  GQ  TO  32 

3ø  JF  1NKEY$="J"  THEN  Gø  TO  12 

3 J  GO  TO  27 

32  CLS  :  PRINT  AT  10,0;  "DET  UAR  TARUEL 
J GT  S”:  PRINT  AT  14>2;"HUJS  DU  FORTRYDER 

TAST  J "  :  F OR  A-0  TO  1000  =  IF  JNK£Y$^"J" 

OR  I NKEYS=" j "  THEN  GO  TO  12 

33  NEXT  A :  PRINT  USR  0 

35  PRINT  AT  16,  13;  "BONUS"' 

36  FOR  S-ø  TO  10:  BEEP  ,005,10:  BEEP  , 
005 i  20 :  BEEP  .005,30:  BEEP  ,005,10=  BEEP 

. 005, 20 :  BEEP  .005,10:  BEEP  ,005,40:  NE 
XT  S 

37  FOR  S=ø  TO  4:  BEEP  ,2,2:  BEEP  ,2,10 
■  BEEP  ,2,7;  BEEP  ,2,32=  BEEP  .2,12;  B£E 
p  .2,10=  NEXT  S 

38  FOR  S=0  TO-  99,  lET  SC-SC+ ]  ;  PR j NT  A 

t  0,ø,  SCORE-1  ;SC:  BEEP  ,005,10:  BEEP  ,0 
05,2:  N£XT  S.  PRINT  AT  16,  13 i  =  GO 

TO  15 


GO  TØ  32 
GO  TO  32 
GO  TO  32 
Gø  TO  32 


BEEP  .2, 12;  B£E 


HaraCha  TTiWW 


10  REdCLOSE+f  *  GOE^V  FGP  C  “64  *## 

Sø  P0KÉ532SG,2- PGK ES32S1, 1 

90  PPINT'-^KIfiKSWMWM^iPLEflSE  NAIT,  ,  *  DEFINflINO  CHHRRC  TERS"  i 
løø  POKE 52, 4©  P0KE56, 4S : CLP : P0KE56334 , PEEK <56334 >fW0254 
1  POKE 1 ,  PEEK C 1 )  RM WS 1 

103  F0RN=-ØT02047  i  POKEN+ 1 2233,  FEEK<M+5324S>  N£XT 
103  F0RW=ØT07  POKEU+ 12320..  PEEK  (N+349S4  >  NEXT 
110  TF  8>HSTHENHS=S 

112  REStORE ; B"4 : Z=1 964  Z1 *2+34272  N=ø  S=J'3=ø 

1 1 5  VS-542 96  ■  RE=3427?  3P*54273 :  WF-54276 :  LB-54272 :  HB=54273 

I2ø  FØRX=ØT03l  RERDR  FOK EX+ 12238, fl : NEXT 

1 23  POKE 1 , P  EEK  < 1 > 0R4 ■ POKE363  34 , PEEK  C 56334  >  OP 1 

1 25  FOKE53Z72 ,  <  P£  EK  C  5  3272  >  RND240  .>+12 

130  FRINT"^>MIPIIBBI*HBIKj  O  B  L  1  N" 

i4g  print" ■  iip 

150  PøRI=lT0ll3 

166  X= 1 NT  CRMIK  ø  > £688) +1144 

170  IFPEEKOO*BTHEN169 

160  FQKEX,B  PQKEX+34272,ø-NEXT 

130  PQR1-1T036 

135  01»0 

2øø  X-lNT<RND<0>f£33>+1144 
2 1  ø  IFPEEKOO-BORFEEKOO- 1 QRPEEK<X>=3THEN2GG 

220  I FPE E* < X+33 ) = BflNDPEE K C X+4ø >  =ERNDPEEK < X+4 1 )*BTHEMF0KEX,3: P0KEX+542?2v ø  01 -1 
225  I FO  1  =  1 THENG 1-01  +  1  0QT024O 
23ø  POKEX, 1  FOKEX+34272, 0 
24ø  NEXT 

230  FOKEZ, 32 : Z=Z-4ø  Z1 «Z1 ~4ø ■ I F2<1 l44THENZ*Z+76©  Zl-Z  1 +760 

260  GEIR*  I F Rl= 11 0 " THEWZ^Z™  1  Z1=ZI-1 

270  I  FRi— 11 P "  THEN>Z+ 1 :  Z%*Z  1  + 1 

230  IFPEEK<Z?=BTHEN410 

29ø  I F PEEK ( Z  >  =  1 THEHG0SØB330 

3øø  FOKEZ ,  0  POKEZI , ø  FQRT=lTQ220 : NEMT 

310  IF N«3 6-GTHE  HJ=5 : GOSUE  330 : GOTO 1 1 0 

320  00T0230 

330  M"W+l '  $»£+23  ;pRlNT"3Bfflfl,|S  POKE  VS,  13  FOKEHD , 30  i  PQKÉSH ,  200  PØKEMF  - 1 7 
340  PQKEHB^ 71  ■  PO^gLB,  12  } JP30  :  NEXT  FCKEVS,0  POKEHB ,  0 '  PGKELE,  ø  RETURN 

335  FORI  =1T010  '  GETCf  NEXT  :  REET  CØLLECT 

360  PQK EVS ,15'  PØKERE 30  :  PQKE6R ,  200  :  POKENF ,  1 7  FøRI=lTQ17 
370  H=INT<RrHKø>WLB>+21  L=INT<RND<ø>f43>+21ø  PQKEHE, H  POKÉLB,L 
3Sø  FOR T*1 TOSØ  MEXT  NEXT : P0KEV5, ø : FOKEHB, ø : PØKELE , ø 
400  RETURN 

4 1  ø  POKÉZ ,  2  POKEV®  ,15-  POKEOD ,  30  F0KE5R ,  200  '  POKENF ,  1 23  POK  EhB,  2- POKE  LE -  1 25 

415  F0Rl=lT04øø  NEXT  P0KEV3, 13 :PQKEH8, ø: PQKELE,ø 

420  FøRX= 1 1 44  TO 1 S2S : EFPEEK^X  >  0 1 THENNEXT 

430  I FPE£K <  X  >  * I ThEnPGKEX , 3  =  h  IEXT 

44ø  J=ø 

445  FOR1=1T010  GETCJ  NEXT 

450  PRINT"  tmMMDMMMMWOiyLny  fløft  I N?  ( VrTl  >  M  ■  P  ØKÉ646 ,  1 4 
463  GETC I  IFC*-" w T HEN 463 
470  IFC$-"V"THEN1 lø 

42ø  POPE 532 72,  21  P0KE332SØ,  14  PøKE332él,6  P0KE52,50  P0KE56,5ø  PP1NT"^E-EE  Vflr 
500  ERTR126, 219, 219,233, 165,30,90, 165,60-66, 165,123, 153, 165,66,60 
510  DRTA170,  33, 17ø,S3, 126,219,253,189,60,66, 165,129, 165-,  153, 66,  Sø 
52ø  DR T Rø, ø,ø, ø.ø, 8,0,0, 


■  I  dette  CBM  64  spil  skal  du 
styie  Goblin  igennem  et  død¬ 
sensfarligt  minetelt,  mens  du 
samler  hoveder  på  din  vej. 
Du  styrer  med  tasterne  O  og 
P.D 

Niels  Lausten 
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jøi: o  1 1 J  r  j  f  ■ :  iB;.n  1 1 1  hl  -0 1  ''^l  R 1 1  T-slfi«- - — - — — J%  «■  *j«rr ni 

kPih  itu1  ■' 

3ø  .-ø  +ORN— i  r  u iuøø  ut.-:  J  i-  h  in  i  ■  mr  i  hB«  itv "  i  ■  -  -"atæ'ECm.  lu  i ywtiMrtER 


■',"«:L.  EJN.-Uttr-L" 
VHL  L«  ".Vi  HL  -■  U4  , 


■  Programmet  til  standard 
VIC-20  kan  du  oversætte  bi¬ 
nære  tal  til  decimaltal  og  om¬ 
vendt,  Programmet  er  selvfor¬ 
klarende  da  det  selv  spørger 
om  de  ønskede  oplysninger. 

Niels  Jørgen  Bertelsen 


Eli  1FLEH«  EU  ■  .>STH 


:;l  .4  ø  HH  1  r  u  i  Ht  U  u '  I  •  h  OkJfc  -f  1 0235  11  -Et  F  ORX=  1  TOS  1 F B-E<  X .« .  THtNDt D-E  i.  X  >  B*  i  X  > 


jø5ø  ut  lul  i hU i- 
Jø&ø  Htul  PRIM"1 
jlø.’ø  kl::.  I  uh  L  t  '.Ih-; 

3ø3ø  KRIMI '  iW - 

.■■Øbr'j  KRIM  !  '  BlBfil  ij  huk  I,  tu  I  HU  ■ 
;:ø+ø  Ut  lul  [HM  =  ‘  0"  I  Ht  M3øøø 

2100  IFUi-  i  l  ' I  HEM1U 

2110  J.KI.U  ="b"  ’i  HLU50IJU 

JliU  l.u.'  I UJ02U  h  t U  btu  l  KKUUfc* 

G 000  KKIHI  M"  tMU 

I  ØØøU  UH  I  H  U  .  |  2^:  -O- 1>4  -  0  .  j2  ,  U  - 


>"  I  HEN  ;iøt=0 

,T-T;t"  Lit  ■  TUE'.  1 U ,  “  I "  I H  fc 1  12,,  FøRX=Uuø  PRIHTB^X>,  Nt.;i -PRINT 
-llUØ  hhrtliKHX,,i?w  NEXT  NEXT  DE 

■  f  uRW- Hul  Oøø  H£X  1 M 
Blil  M  FUR  MEMU,","fKJ  ©  PUR  STOP !  “ 


Soft  Sceciat  3 1 


■  Dit  F- 1 6  fly  er  under  en  hvir¬ 
velstorm  blevet  sugel  ud  i  ver¬ 
densrummet,  hvor  du  for  før¬ 
ste  gang  ser  nogle  mystiske  ly¬ 
sende  fartøjer,  de  såkaldte 
UFO '  er ,  Fly  v  esta  tio  n  Karu  p 
giver  dig  besked  på  at  skyde 
dem  ned  med  alle  midler; 

Jo  længere  du  kommer,  de¬ 
sto  tiere  retninger  kommer 


UFO'eme  fra.  For  hver  gang 
sværhedsgraden  stiger,  skal 
du  lande  for  at  få  afkølet  din 
laser-kanon. 

Du  styrer  med  joystickel  i  CBM 
64  's  port  1 .  Spillet  er  i  maskin- 
kode,  men  skal  indtastes  i  BA¬ 
SIC/D 

Michael  Lauridsen 


O  GOSIJB3000  i  GOSUB  1 0000 
1  L  I  *3  f  PR  I  NT  “  tJZFOOOOO  POINTS 


100 10  OATAO ,0,0,0  ,  32 ,0 .0, 12,0,0 , 12 ,0 ,0,  12,0,0 , 12 ,0 ,0,30,0,0  ,63,0,0,  1  15,120,0,243 

10020  DATA  392 ,0,243,  132 , 1 ,225,224  ,  I  ,225,224 , 1  ,223,224,7,255  ,243 , 35,255  ,252,  15 

1 0030  ØATA255 ,252 ,14,32 ,2S , 1 2,30 , 1 2 , 1 2,33 ,12,0,0,0,0,0,0 

10050  REM  DATA  TIL  DOBBELT  LAStR 

1 005 S  FØRA*7Q4T0?57 1 READ3 i POKEA , S  *  rCKT 

10060  OflTflO  ,32 ,4 ,0 ,64 ,2 r0 ,224 ,7 

1006  3  OflTflO , 32 , 4 ,0,64 ,2,0,224,7 

10062  ØftTAD , 32 , 4 ,0 , 64 ,2 , 0 ,534 ,7 

10063  DATAO ,32 ,4 ,0,64 ,2 ,0 ,524 ,7 

10064  OATAO ,35  .4 ,0,64 ,£ ,Q ,££4 ,7 
10055  OPTAO ,32 ,4 ,0,64 ,2 ,0 ,224 ,7 
10100  REM  OflTA  FOR  LÅSE RS TRA ALE 

10104  F0RA=B87T06B7* 124 : POKE A ,0 : NEKT 

10105  FORA"6B7T034SSTER3:RÉAØS:R0kEA  ,SiNExT 

10 1  LO  OB  TA  1  ,5,4,  1 5 , 1  ,5,4,  15, I  ,5,4, 15,  l,  2,  4,  15 

10200  REM  OflTA  TEL  UFQ ' ER 

3  0205  FORA" 960 TO 991  :  REPOS  f  POKEPl  ,6  :  NEKT 

102  30  OA TAO ,24 ,0,0,126,0,  I  ,255 , 1 26 , 7 , 255 ,224 , 3  1  ,255,243,50,62  ,76  ,31  ,255 ,246 
10550  OA TA 7 ,255 , 554 , i , 555 , 156 ,0,156, 0,0,54 

10300  REM  DATA  TIL  5  TYR  I NGSR  UT  1  KE 

10305  FORA "20000 T02O07 |  i REflDS : POKE A , S  s NEXT 

10330  DATA  L 74,  3  ,220,224 ,247, 2 OS ,13,233,0, 208 , 174 ,0,203,224,255,208,3,206,0,206 
10320  PATA  174,1,  550 , 554 ,BSl  , 205 ,  I  3 ,206 , O , 205 ,174,0 ,£03 ,554 , £4 ,505 , 3 , 23S , O ,203 
10330  DATA  174 ,48 , 117,224,0,206,24 ,174,1  ,220,224,233,208 , 17 , 163,  1,141,43,117,173 
10340  OA TAO ,508 ,  ! 4  I  , £  ,  £08 ,173,3  ,208 ,341,3, £00 ,35 
104Q0  REM  OATA  T 1 L  STVR.  AF  LASERS TRAALE 
10405  FORA "50  I P0T020 145  i REHDS  3  RØKEA , 5 : NEKT 

104 10  DATA  174,46,117 ,£54 ,  ]  ,£DS ,35, £06 ,3 , £05 ,  174,3, £03 ,224 , 0,503 ,5,163,0,141,48 

1 04 ao  OflTA 117,174,3, 203,224 , 1 , 206 ,6 , 506 ,5  I ,508 , 506 ,5  3 ,508 , 554 , 145 ,£05 , 6 . £30 ,£ i 

10fl£l  DATA508 ,230 ,2  I  ,208 , B6 

10500  PEN  DATA  7  3  L  5EVAE6ELSE  AF  UFOER 

10305  FOFA "£0500 Tø£0 263 : REAOS :  POKEA  ,  S : NEHT 

10310  0ATASO8 ,3 ,208 ,206,5 ,208,236 ,4,206,233,7,206,538 ,7,508 ,535 , 6 ,505 , 500 , 3 ,508 
10550  0ATA238 ,8,208 ,236,8 ,20-3,238 ,3  ,206  ,235,  I  1  ,208,535,  1  3  ,508,538,  L  I  ,208 
10530  DA TA £06 , 30,205,206,  I  3 ,505,506 , 3  3,503,506 . 3  2,200,206,  12,203,206 ,  12,208 
3  0540  DATA206 , 1 5 , 5US ,506, 3  5,208 ,506 , 15,508 ,238 ,  14,208,96 
10600  REM  DATA  tjl  POINT  TflELLEP 
I  0605  RQRA “5Q300T020340 : REAOS  s POKEA  rS : NE> <T 

3  0610  DATA  169,47,141,0,4, 236 ,0,4,168,47,143,1,4 , 535 , 1 , 4 , 1 65 ,47 , 1 4 1 ,£ ,4 ,53S ,2,4. 

I  0620  DATA9S ,  6  74,2,4 ,224 ,57 , £08 ,243  ,  I  74 , 1 , 4 ,££4  r57  r  £03 ,230 ,374,0,4  ,224 ,57  ,203 

10630  OA TA 2 15 , 24 ,144 ,507 , £6 

10700  REM  DATA  TIL  TJEK  RUMSK  18 

30705  FORA "20400T020445 : REAOS : POKEA , S : KEXT 

30730  DA TA l 74, 30, 208 

30711  DA TA £24 , 5 , 208 , 3 , 32 , 182,63 

30712  DATA224 ,8,206 ,3,35,185,93 

3  0713  DATA ££4 , 17 ,208 ,3 ,32 , 192,93 


2  P OKE 3328  1,0 

3  GOSUB  3000 

4  ROK E 30000 „ l  • F OK E 30003 , 0  :  PØKE30ø01,0 

100  SYS8500D -  I FPEXKX  30005  5  =  1 THENGOT030O00 

101  IFPEEKC  30C05X  >STHENGOTO  120 

102  IFU-£55THENT=1 s U-? 

103  IFU= 1 £7THENU=£35 

104  IFU"  6 3 THE NU =187 

105  IFU=  3 1  THE NU =  63 

106  IFU=  15THENU-  31 

107  I FU  =  7 THE NU =  15 

1 08  POKE30OQG , l : POKE30005 ,0: F0KE3000 I ,0 


309  FCRA-  I90TO5O9TEP-  i  r  PDr  £5774?  ,A  F Si'Sa&OBC  i  9  f6lD8Da  a  PØKES4273 , 3  50 -fl  :  NEKT  :  u-jT&40 
0I>0 

3  1  U  605Ue9OP0  =  FORA ■QTC500  =  rE yt  s  I F  "F  *  1  TH E MP OK E  !  22  7  L  ,  £!?  I  FØh.E! 22  7  ' 

1  1  1  TFPEEirr  1G25>  >4  3TKE^9f.E204]  ,  |  1 
1 12  60 Tp ] DO 
ISO  PEN 
200  60 TO  1  DO 

4500  ROKE53266,  U i  FOK E £040 , 13 E PQKE9324>  ,250  i  POkETS-32  J9  ,  L50i«E5”aRE 

9001  PQKE59250,  I  I  P5KCT725  1  ,  IGO  rP0KE2O4  ]  ,  I  4 

9002  FORA  -53233  TO1!  726  47  TEA  S  :  ROF  EP  r  40  :  NE  >:  T 

3003  F0Prt-S542T0?04T:  POKER,  3  3  t  T  i  PDKC!327  1  ,  Øs  POKE3M77 ,0 
9AC4  FOR  ft  -53252  TO!  326  99  TER?  i  PQ*.  E  P  r  fiKJc  L  >  <  ?S5  :  t  c  m 

9GD5  POKE54296 , 1 5  i  Rok. ETJ 42 77,  L90  i  PØK.E54279  ,54?  :  P5k£54276 , 3 29  =  P0F6 5*2 72 
9606  POKE 54272 . ] DO 

9010  FOPAt!3ee7T05M»4iREPDSiF(?KEP,STr«MT 
9650  SE«  DflTft  fop  FftflvFP  T[L  9TPJTE 
203C  DATA t i , I ,5 , 4 , f  ,9  ,  I  ,3 
9100  RETURN 

9200  F6Pp.46l!£T049406iR0KEP  ,RtÆ(  1  >  *  32  i  f-O.  K  T 1  P  DkE  !  3  £9  5  r  ] 

92  1 0  FøRp  ■  32  TO  33  i  F  ORB  "  D  TD24  i  PQK  E  3  02  4  •  P  +  6  1 40  ,  ISO:  PQK  E!  52  36  *  P  +  E  *  40  ,  I  :  l-Ci^T  ■  NEMT 
9220  FORP"!5936T056&99i  1F  3  >  j  .  !THEf'FOKEP  ,  [ 

322 1 

9300  PCTgPN 

IOOOD  REM  DATA  TIL  mP5k]W.0DE  RUTINER 

I0D02  REM  DATA  FOP  RUrtSK  10 

10005  F OP  A ■ B 32TQ 896  i P E POS  c  ROK  EP ,9 JNEKT 


32  Saft  Special 


!  07  !  4 
10715 
107  18 
lOSOO 
10603 
10310 
100  1  1 
10S1S 
105]  3 
JOB  1  4 
100  13 
103  16 
10900 
10905 
10310 
1091  1 
10913 
10®  13 

109  t  a 
10313 
I  1000 
1  100? 

110  ÉØ 
3  10  13 
1  10  L4 
11015 
11015 
13000 
!  3005 
13010 
I  3030 
13030 
13040 
13030 
15005 
1  3003 
IGO  tO 

30000 

3000  O 

3000 1 
30000 
30053 
30003 
30007 
30005 
30000 
330O0 
33003 

m 


DHTrtEEfl  r  33  ,£08 ,3,30,190, 33 
DPI TAØ 04, S3,00B  „3 ,30, 130 ,33 
DHTflØSfl ,  t  99  , 503 ,3,30,130, 33 , 36 
REM  ØftTO  TIL  TJEK  UFOER 
F0R9-S03O0TO0063C  ’  PEftOS iPOKEfl  ,  3  I  KClKT 

I  74 , 30 ,  t  17,004,5,005,  13,  152,0,206,01  , 203 ,232 , £54 , 4 , £06 ,243 , 30 ,  I  O  S  ,  79 
□flTftl74,M ,  1  37 ,B24 , 10 ,005,  13 ,  I  SØ ,0 ,00E  ,0  i  ,003,230,204 ,S ,003,043,30 ,  10  I  ,73 
DflTfl (74  ,S0,  t  17 ,004 ,  lfi ,003,  3  3 , 1 5ø  ,0 ,006  ,ø I  ,£0S ,030 ,004, 15,003 ,043,3c ,  tul  ,73 
ØftTft 174 ,50,1  17,004 ,34 , ØØS  ,  |3,  150,0,056,01  , ØOS ,ø3ø , 204 , 30 , 006 , 043 , 30 ,101,79 
PATA  174 ,30 ,117, 204 , 65  ,003 , 1 3 ,  1  GØ  ,0 , 005  ,0 1  ,053 , 230 , 004 ,64  ,000 ,040,30, 101,79 
DATA  174 ,50, 1  17,004 , 130,003 , 13 ,  160  ,0,006,0  1  ,003,030 ,004 , 105  ,003,043,30 ,101 
0ATA73, 174,43,1 17,004,6,005,3,30, 190,33,36 
REM  DATA  TIL  UFØEP./SK 

F OF  A »00 70 5 TO 05 7 7£  i  REA5S  c  PQKE5  ,31  fE>;T 

DATA  174,3 ,008,224 , 40,003,5 , 169,055,  141  ,5,005 

DATA  174  . 7,006 ,004,053,003.9,  J 69 ,  40,141  ,7,000 

DATA  174 ,0 ,000 ,004 ,  40,000  ,5,153,255, 14]  ,3,003 

OATA 174,1] ,259 , 024 , 055 , 253 ,5,159,  4Q , | 4 | , 1 J ,006 

DATA  174,13 ,EOØ , 004 ,  40 ,008 ,5,163, 055 ,  141,13, 003 

DATA  1 74 , 15 ,003 ,004 ,  40,003 .5 , 169,055 ,14  1,15 ,003,36 

REM  DATA  TIL  SCROLL ^ST JERNEft 

FpRA*005C5'fO2£'S5G  J  PF  P55  *  PØK£*  ,$1  r-C^T 

DATA  160 ,055 , 133 , 150  ,6 . 157,530,6,000,004  ,255 ,202,045 

DATA  160 ,053 ,139,130,5,  157,030,3,002 ,004.053  .003 ,245 

O A TA  S  6ø ,035 , 1 33 , 130,4 ,137 .030,4,000,024,033,003,043 

0ATA160,  I9ø  ,  199,  40,4,157,  9t*  ,4 , 200 ,224  ,E35 ,008  ,£43 

DATAB30,34 ,117,372  ,34 ,117,130,0,332, 163,46  ,  157  ,8C  ,4  ,36 

REM  DATA  TIL  HOVEO  INDHOLD 

F  0  PA  ■  ø  3  00  DTØ  250  59  *  PE  AD5  c  PO  K.  E  fl  ,  S  1  ^  C  ■'I  T 

DATA] 74 ,30,008 , 140  ,30 , 1  3  7 , 32 ,220 , SU , 32 ,90 


0ATA30 ,30 ,78 ,30 ,130,7ø.30,l 30 ,73 , 30 , 030 , 70 , 72 , 176 
DATA  174 ,53 ,117 ,004 , i  ,000,6 ,169,1,(41,0  -330  ,96 
DATA  3  74  ,£ |  ,003,004,1  , 003 ,6 , 169 . 0 , 1 4 1  ,39 , 1 L7 ,36 
0ATA76 , 16B  .97 
REM  DATA  TIL  DO 

FøRA^24Ci00T0£4ø05  :  READ 3  :  POK  EA  ,  9  :  CEKT 
DATA  166 .  1,14  1  ,53 ,117,96 
RETURN 
L I *L I  -  I 

PR  l MT "PB—fl— B— — I— MHBB'  !L I  :  PØKE3407? ,  l 
IFL  1  =OTHEM  FORA  3 0 TO  t  OOD  :  tlExT  :  FØRES 3263  ,  O  :  6C  TO  ?5C  OC 
W-F££KC  5304&  >  9  WU-PEEKC  53043  >  9  [  F\4 ' 250THEH-I-050 
FORE =OTøløO 

P  øK  E  5  3246 ,  LI  -  5  *  RF40  (  i  >  i  1 0 ;  P  Ok  £  3  6  ø  49  , 9  Ji4  -5  ►  R  r  jø,-  L  *  .  ~j 

n wyrr 

G0SUB3øø0:P0KE3Q003  ,DtPOKE90OD  1  ,C>PO^  £3000:  ,  :  i  C-'-  11. 

PPT<siT-^a^g)<M>MM>Miaqp9itwiitHwwTJWi;jifr,Pr^r-n^FP  - 

POK 854296,0 

i fpffk f  ■iF^P  i  'ti  ■»grtg-nJFMain  i ø 


l ,22 ,24 ,31 


25020 

35000 

25004 

95006 

23006 

35030 

35031 
35030 
33060 

40000 

40001 
40000 
40003 
40010 
4001  l 
40010 
400  13 
400  J  4 

40019 

40020 
4000  I 
40000 
40030 
40040 
4  004  5 
40050 
40060 
4D5U0 
43000 
45001 
43003 
45010 
45020 
43090 
45040 
43030 
43060 
43070 
4  50  BO 
45030 
43  100 
43  1  lO 
45120 
45130 
43  140 


PR  I  MT  “  JfOE  1  TA  101  "MICHAEL  LAUR  1  DSEM*  9  PR  I  NT  "  HnM" 

PR  INTTAB<  14  >  *  Hl**  **********  ■ 

PR  1  NT  TAB  (  14  >  *  ZltB7  -  1  6  JHCFflyi*  * 

PRINTTflBf  14  >"«*****  *****■*♦“ 

PR  t  MT  ’  S“  i  TABt  1 7  > "  £>BAME  “ 

PRINT  ■  i  TAB^  1  7  >  ■  JI»(STRUKT  1  QÆR  “ 

6ETA4  9  1  Fftl3  "G"  THE  NGO  Tø  3 
IFA*=H | "THENGØT043000 
Gø  Tø  3  50  3  I 

FORA  i*  1  964  -  i  2UT02023  1  RØKEfl  ,  92  1  NEXT 

PR  [  NT  ”  3  TflB(  PtC.  Al  *03  >  *  ^XV 

PR  I NT “ 

PR  I NTTABC 34  >  ;  -  *■ JLE 

FORA  -FEEKf  53249  >TØØ  ]  7STEP  ,  3  i  P0KE5324B  ,  A  3  9VS2000D 
P0KE5407G  ,33 

IFRND<  I  ><  .3THENP0KE53246  ,PEEK<  33048  )  *  1 
IFPEEM  33301  >  ■  £33  THE  NA  =  A  *  3 
POKE54076 ,17 
ISE  HT 

FORA.  "O  TØS  O  9  IFPEEM  53248*21  >  »  1  THE  1440  020 
NEXT 

G0TO30000 

REM 

PR  1  MT  ■  aMUlHUUlP™*— 1  ■  >  *  >  »  ftWMMll V  1  GHT  ON" 

FORA  »0TQ200D  9  ISéHT 
PR  I  NT” 

FORA=  l  TØLE  9  SYS 00303  9  ÆKT 
LE-LE* 1 100T01 10 
REM  INSTRUKTIONER 

PR  |NT“  J"  [  TAB(  I5l”»*-l6  JAGER  *  9  PRINT 

PR (NT” JEP IL LET  GAAR  UD  PAft  At  9KY08  UFøERTÆ  “ 

PRINT”  »OG  LANDE  BLOOT  PAfl  PLATFORMEN,  *1 
RRlNT-fcJMAN  STARTER  MED  EN  LASER  OG  3  LIV" 

PRINT"  »JAAR  MAN  HAR  KLARET  EN  LEVEL  OG  HAR” 

PR  I  NT "1E000D  ELLER  FLERE  RO  I  NT  SAA  FAAR  MAN" 

PRINT"  »HØG  BEL  TLA  SER  * 

PRINT"(#-IVIS  94AN  KLARER  0£N  6 AKE  r^D  6  UPDEP” 
PR1NT"M£AA  KOMMER  OEP  0  UFOER  MEN  STORRERE ” 

PR  I  NT  t  PR INT “3=0 i  NTi  ” 

PR  I NT "DJ FO  aiODD” 

PR  INTbil,ANOE  jj  1  0  00  *  L  E  '■/  EL  ” 

PR  1  NT  9  PR iNT-yCONTROL  I  PORT  1 ■ 

PR  I  NT  t  PR  INT  9  PR  I  NT  :  FR  IrTT  "  »>RESS  SPACE  " 

GETA*!TFA*«H  “ TH EN  35020 
GOTO  4  5  120 


EVEL' 


QULCV?, 


10  REM  *  +  K**.+  ^^^:**::+*4*>*j*%****#4w  +  *#»*»  Æ 

■K  A 

12  REM  «  MRSTER  MIND  V  ■  J 

13  REM  »  LAVET  ftf  ANKER  ROSENSTEDT  *  V  ■ 

14  REM  *  CC>  26/12  133  *  ■  ■  ■ 

20  POKE  3320ø,3:P0KE  53261^  ■  ■ 

30  PRINT  CHRi C 144  > 

40  PRINTE1 

Sø  PRINT"  MASTER  MIND'' 

52  fl-INTCS*RND<l)) 

5*  B-INT(5*KNDU>) 

56  t>INTC6*RNDa>> 

38  B*lHT(S*RNDm> 

60  PRINT  "JEQ  HRR  FUNDET  4  FHRVER  UD  HF  D3SS£  '' 

?ø  PRINT'  SORTCS^HVIDCH^RøE<R>,ORØN<Q>,BLHCB>,  GUL<V)*  "i 
80  PRINT"  INDTAST  DU  GÅET«  *' 

62  0-0+1 
03  p-P+2 

33  GET  Ri :  IF  Ri-1' 11  THEN  30 
100  IF  Ri*"S"  TNEN  I-ø :n-ø -GOTO  166 
116  IF  Ri-'H'  THEN  I-lM-l  GOTO  166 
120  IF  Ri-"R‘  THÉN  I - 1 0 ; M—2 : GOTO  166 
130  IF  Ri-"0M  THEN  I«S :  M-3  0(JT0  166 
140  IF  Ri»HS"  THEN  I -14 ; H*4 ; GOTO  166 
150  IF  R*®|jy"  THEN  I  "7 '  H-5 :  GOTO  166 

155  IF  Ri-MP"  THEN  161 

160  GOTO  SØ 

161  P-2;P0KE  OMø+l 105^32 -POKE  0*40+1187; 32  POKE  0*40+1169,32 

162  POKE  0*40+1 1S1.3E’ GOTO  SØ 

156  IF  P-2  THEN  E-M 
167  IF  P-4  THEN  F*M 
166  IF  P-6  THEN  0-J1 

169  IF  P-6  THEN  H-M 

170  POKE  0P40+ 1 1 03+P; 81 : POKE  0N40+55455+P, I 
100  JF  POØ  THEN  85 

ISS  GET  Ti f I FTi- " "THENISS 
106  IFTip-'P^THENiei 
ISø  L"0 1 K«0 

195  AU3-0  BCn-0  C<1>-0  DCD-0  E<n-ø  FCl>-ø  QU)-0  HCD-ø 

200  IF  A-E  THEN  L-L+l  RC1>-I  ;ECP-1 

210  IF  B-F  THEN  L-L+l :FC1>-1  BC 13-1 

226  IF  C“G  THEN  L-L+l  :G<l>*10<n-l 

230  IF  D-H  THEN  L-L+l :  DC  D-PHC  1J-1 

240  IF  A*F  AND  ACP-0  HND  FCD-0  THEN  K-K+l  :  FCU-I  =fla>*l 

230  IF  A-G  AND  A<1)-0  HND  OCl?-ø  THEN  K-K+l  0-1  ■  D-l 

260  IF  A-H  HHD  ft<l>-0  HND  Htl >ø  THEN  K-K+l : RC1 )-L : H< 1)-1 
270  IF  B"E  AND  BCD-ø  HND  E(t)-0  THEN  K-K+l  BC1  >*l  :  Et  D-l 

280  IF  B-G  AND  AND  0<1jpø  THEH  K-K+l  BCl 5*1  G<1?-1 

290  IF  B-H  AND  BC15-0  AND  H<1)-0  THEN  K-K+l  BU >-I : Hil >-l 
300  IF  C-E  AND  CiU-0  AND  EU5-0  THEN  K-K+l  :CU)-1  :EU>-L 

310  IF  C-F  AND  CU?-0  AND  FU>-0  THEN  K-K+l  :C<U»1  :  FC 1  >-l 

320  IF  C-H  AND  CCW-0  AND  H<i;-0  THEN  K-K+l  =C<  l)-l  :  HC1  >•! 

330  IF  D-E  HND  DC1>-0  AND  E<n-0  THEN  K-K+l  DU5-1  Eil>“l 

34ø  IF  D-F  AND  DU  >-0  AND  F<l>-6  THEN  K-K+l  ;DU)-1  :FU>”1 

330  IF  D-G  AND  DCO-ø  AND  G<n-ø  THEN  K-K+I :  DUJ-1  :  GC I  >31 

360  IF  1-4  THEN  410 

370  PRINT  5PCClø> 

300  PR I NT  * SORTE : " L 1 “  HV I  DE  - ” K 

390  IF  O-IG  THEN  PRINT" DU  HAR  BRUGT  18  FDRSOGj  OG  DER  ER  IKKE 
4øø  p-øaOTO  82 
410  PRINT  SPC<4ø) 

420  PR  I  NT "DU  GÅET TE DE  FARVERNE  PA  "O"  FORSØG, "  END 


Mastermind 


* 


MCT 


■  Med  dette  program  tår  du 
en  usædvanlig  flot  Master 
Mind  på  din  Commodore  64 . 
Når  programmet  starter,  tin¬ 
der  computeren  4  ud  at  6  mu¬ 
lige  farver,  som  du  skal  gætte 
ved  at  indtaste  lorbogstavet 

MERE  PLADS."  END 


Hvis  du  mod  forventning  tryk¬ 
ker  på  en  torkert  tast,  rettes 
ved  tryk  på  "P".  Etter  endt 
indtastning  trykkes  RETURN, 
og  du  tår  at  vide,  hvor  mange 
sorte  og  hvide  brikker  du 
har,  O 

Anker  Rosenstedt 
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^  fl  J-07 

»Pi  ***>  *1 

o  j»  in  y  w .V  rp 

r£  f* 

n  f***:^-.  r 


HafdChi  Trvs.fM.ri  V 


10  BORDER  0:  PRPER  0:  INK  6:  BR1GHT  1 
CLS 

2ø  BEEP  , 2t  I ø :  BEEP  -  2,5 
30  GO  SUB  ]000 
40  LET  b$ “0 
50  GO  $UB  2000 
60  LET  a~2 1 :  LET  b=15 
20  L£T  $c=ø:  LET  las-50 
Sø  LET  i  i v=5 

9ø  PRINT  RT  0,0 i  PRPER  2  i  INK  7  i " 

rf  ;AT  0,  ø  j  "So 

’UsciAT  0*8; "Las  ; "  ;  las  ;RT  ø,  16  ;  "L  i  u  : " ;  I 
■j;RT  0,  23;  HiSc  :  1  jhs  :  PRU3E  100 


■  Din  værste  yndlingsfjende  dags,  fordi  den  ikke  har 
har  haft  held  med  at  gem  været  brugt  i  årevis,  men  det 
nembryde  den  strdlebamere,  vigtigste  er,  at  den  stadig  dur. 
der  skulle  redde  dig  og  dine  I  Cosmic  Chaos  kommer  du 
fra  ødelæggelse  og  død  på  ud  i  en  vild  mrnkamp,  hvor 
din  idylliske  planet  Eldorado,  du  får  hænderne  mere  end 
Nu  er  der  kun  én  udvej.  Du  fulde  med  at  holde  de  fjendf- 
må  have  laserkanonen  frem  lige  rumjagere  ira  livet  □ 
fra  gemmerne.  Den  er  gan¬ 
ske  vist  rusten  og  gammel-  Leif  Kvemhusvik 


95  REn 

96  REH  Hovedrut  ine 
92  REF1 

98: 

løø  LET  y=3+ 1  NT  CRND*263:  FOR  x=I  to  20 
■  IF  ATTR  [x,y)=68  THEN  GO  TO  34ø 
Mø  PRINT  AT  *,y  ;"dH 
120  PRINT  AT  a,b  i" 

130  IF  IN  63486- 1 90  AND  b>ø  THEN  LET. b 
-b-1 

Mø  IF  IN  63486=190  AND  lN  65022=139  RN 
0  b> 1  THEN  LET  b  =b -2 


34  Solt  Special 


150  IF  IN  63486=183  AND  b <23  THEM  LET 
d  =b  + 1 

160  l F  IN  63486™ 1 83  AND  IN  65022=183  AN 
D  b  <28  THEN  LET  b=b+2 
1 20  IF  IN  61438=130  AND  a>ll  THEN  LET 
a=a- 1 

l Sø  IF  IN  57342=130  THEN  IF  las  THEN 
GO  TO  280 

130  IF  NOT  las  THEN  GO  TO  3000 
200  LET  a=a  +  U  OND  a<2|  AND  IN  6143801 
30) 

210  PRINT  INK  4JAT  a,b;'abc” 

220  IF  ATTR  (  x,  >0-68  THEn  GQ  TO  340 
230  PRINT  AT  x,y;"  " 

240  LET  y=y +  t RND> . 5  ANO  y <28 ) - CRNO< , 5  A 
ND  y>3):  LET  x=x-C2  AND  x>10  AND  RND<.2> 
25ø  IF  x=2ø  THEN  LET  liy=liy-]:  PRINT 
PAPER  2  i  INK  7lAT  0 , 20  ;  l : v  :  IF  Liv^ø  TH 
EN  GO  TO  *000 
260  NEXT  x 
270  GO  TO  100 

273  i 

274  RED 

275  R£H  PLOVDRALI  Laser 

276  REH  Sjekk  for  UeH 

'277  REN  88888888888888888888888 
278: 

280  LET  l  as  =  |  as  -  1 

280  PLOT  ChJfce3  +  l2, TI 75- C a*8) )+2 s  DRAW 
INK  730,79:  DEEP  ,003,50:  PLOT  tb*a)+12, 
H75-[a*8n+2i  ORAW  INK  ØiØ,78 
300  IF  ATTR  C x 1 y ) O 70  THEN  FOR  s-1  TO 
21  STEP  3  *  SEER  .Ø3,s*2.5:  PRINT  AT  x,v, 
INK  s /3 i "d  w  ;  NEXT  s,  PRINT  AT  x,yi  ''  : 
lET  s  c  =sc  +  r  25-x  )  :  i_ET  la?  -  las  1 1  :  PRINT 
PAPER  2;  INK  7  ,AT  ø,3<$c;AT  0,l2;ia$;AT 
0  s  1 3 ,  f  "  :1  AND  i  as  <  10]  ■  DUT  57342,3-  GO  T 
O  100 

310  PRINT  PAPER  2i  INK  7, AT  ø,3isciAT 
Øj  1 2  i  las  ;  AT  0#j3if"  ''  AND  l a$  O 0) 

320  QUT  S7342:S 

335  RED 

336  REN  KoUi$jonsrutine 


337  REH  88888888888888888888888 
338: 

340  FOR  s  =2  TO  6 

350  PRINT  AT  a,b;  INK  s  T  abe" 

360  BEEP  , 2, “ iø  :  BEEP  .Ø05ss*5 
370  NEXT  s 

380  PRINT  AT  EET  Uu=liv-1 

38ø  PRINT  PAPER  2;  INK  7  i AT  ø,2øiuv 
400  IF  Uv<=0  THEN  GO  TO  4000 
410  OUT  57342,5=  &0  TO  Jøø 
894  : 

995  REn 

986  REH  Graf  ikk  A8C  D 

987  REH  flMUU88ttll#4Ml888888tf  88888 
888  ■: 

888  STOP 

1000  FOR  a=USR  "F'  tq  USR  "c" +31 
lølø  READ  b :  PQKE  a,b 
1020  NEXI  a 
1030  RETURN 

1040  DATA  0 ,  ø,  ø ,  3,  7 , 15,27,59 
1050  DATA  24 , 24  j  60 , 255, 255, 255,231 , 185 
1060  DATA  0,0,0,192,224,240,248,220 
J070  DATA  1 53,219,255,126,60,24,24,24 

1394  : 

1395  REN  88888888888888888888888 
1936  REN  Jnn&trLik&joner 

1397  REN  88888888888888888888888 
1338: 

2000  BORDER  0:  PAPER  0:  CL S 

2010  PRINT  AT  1,3  TI . UENSTR 

E'"  i  TAB  3  ;  "2 . *  ,  ,  *  HØTRE"  3  TAB  3  rø 

* .  - . * OPPM i  TAB  3  i  ‘  P  * . . . 

■  SKYT 11  i  TAB  3  i  '  S . . .  EKSTRA  FART 

2020  PRINT  AT  7 , 3  ;  ,fD I N  SCORE  AUHENGER  AU 
HUOR  HØTr  ROriSKlPET  ER  NAAR  DU 

TREFFER  DET* C TOPPSCORE-24J  DU  ST 

ARTER  HEP  50  LASERE  OG  FA AR  j  NT 

FOR  HUER  trEfF.SPIlLE1  ER  HUER 

HU  IS  5  RONSKIP  KLARER  AA  KOflNT 

HELT  NED  ELLER  KOlL  I  OFRER  NET'  O 

EG*  HUJ  S  DU  G AAR  Tøn  c  ØR  ._ASi-iRL  *■  \ 


AR  Db  50  NTE  OG  NISTER  ET  lIo. 

2030  PRINT  INK  7.-V  21-3,  FlASH 
KK  J  FOR  AA  81  ARI z  SPIllET 


2040  IF  I  NKE  T$  =  “  J  "  ØR  INKET*  =  ,1J’1 


1  HEN  B 


ORDER  5  :  CLS  :  RETURN 
2050  GO  TO  2040 
2394  : 

2935  REH  88888888888888888888488 
2996  REH  Nye  Lasere  ? 

2037  REN  88888888888888888888888 
2S98 : 

3000  IF  I as=ø  AND  liw>0  THEN  lET  i*s  =  U 
s +50:  LET  I  i v=  l  i v-l  :  PRI NT  PAPER  2  i  INK 
7 ;AT  0, 12  ; las  ;AT  0, 2ø  i  1  i  v 
3010  IF  l I v=0  THEN  GQ  TO  4000 
3ø2ø  GO  TO  210 
3394  : 

3335  REN  88888888888888888888888 
3996  REH  Game  Ouer^Nytt  Sp i l l  * 

3397  REH  88888488838888888888888 
3988  : 

aøøø  PRINT  AT  10,11;  FLASH  1  ;  'GANE  OUER' 
4010  PRINT  AT  J5,5rTRTKK  J  F  OR  NfT?  S- 

lL11 

4020  IF  s  c  >hs  THEM  LET  hs -*c 

4030  FOS  s-1  TO  5 

4040  FOR  t  =  l  TO  S 

A050  BEEP  *03t-t*S:  BEEP  .03r'* 

4060  BEEP  , 03,-i*10 
4070  NFXT  t 
4080  NEXT  t 

aø90  IF  1  nKETÆ- '' J 11  OR  INKET*-"j"  t^EN 
lS  :  60  TO  5ø 
4100  GO  TO  4090 

9992  REH  Hvis  programmet  ikke 

9993  REH  virker  $  om  det  ska* 

9994  REH  proev  da  aa  bylte  ut 

9995  REH  IN  tallene  i  linje 
9936  REH  130-180* 

9997  REN  Bylt  190  med  254. 

9998  REN  Bytt  I B9  med  253* 

3399  SAUE  ,rRomdueU"  LINE  10 


Labyrint  krig 


. 


■  Du  skal  prøve  at  komme 
igennem  en  labyrint,  før  din 
modstander  -  computeren  - 
samtidig  med  at  du  skal  pas¬ 
se  på  ikke  at  støde  ind  i  væg¬ 
gene  .  Du  skal  også  passe  på, 
at  modstanderen  ikke  spiser 
dig.  Husk  at  du  ikke  kan  gå  til¬ 
bage' 

Nederst  på  skærmen  kan  du 
hele  tiden  se,  hvem  der  fører, 
og  til  slut  hvem  der  hai  vun¬ 
det.  Hvis  du  vil  bruge  joysticks 
eller  andet  at  styre  med,  kan 
du  ændre  i  linie  23  og  24.  Her 
aflæses  retningen. 

Spillet  er  kort  men  godt,  og 
kan  køres  med  de  2  K  RAM, 
som  ligger  i  en  standard 
Lambda.D 
Poul  Møller 


-  1  PRINT  AT  Q.fl:  *■ 

Hf  •*  ■ 

4*  FOR  RkI  TO  20 

5  PRINT  RT  R,ø;“ 

IIIVIIVI9" 

6  NEXT  R 

7  PRINT  " 


Æ 


¥é/ 


sirl 


tr 


iTORflil  TG  23  STEP  2 
^  FOR  8=0  TØ  I 

10  PRINT  AT  RND  *19  +  1  'f 

11  NEXT  0 

12  NEXT  R 

13  R=INT  IRND*193 +2 
14*  B  -  30 

15  C=INT 

16  0=0 
17  E=£l 

IS  OR  &>1  RND  fl  <20J 

19  PRINT  RT  R,S;"  " 

20  IF  NOT  PEEK  f  l&Sø9+R*33+B,l 
THEN  0=8-2 

21  &  +-E 

22  PRINT  RT  C,  O;  ^  ,+ 

23  C=C+ t INKEV$="R“  ANØ 
INKEV*  =  ”4''  RND  C>0) 

24  D^D+  t  INKEYSs'T") 

25  F=PEEK  <1651ø+C*33±I» 

n  ifÅlri|FiI|Nr 

1 '  27  GOTO  <F  <  >0  OR  R*C  RND  »=D  O 
R  B=ØJ  *14*+  i  D  =30)  *10+16 

26  PRINT 

29  0=D-1 

30  SOUND  0,999 

31  GOTO  CD >5) +29 

32  PRINT  Fl  l1  MWI  III  M 

33  SOUND  30,9999 
34*  RUN 

35  SRUE  11  LfiBYR  I Nf| 

RUN 
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■  De,  dei  hai  nrøvet  QL's 
komplicerede  BEEP-kom- 
mand o  ved ,  hv  r  svæ  rt  d  et  er 
al  opnå  nøjagl  j  den  bestem¬ 
te  lyd ,  man  øn:  Ker  till.  eks .  et 
spil. 

Godt  nok  tort  ae  iler  Sinclair  i 
manualen,  hvilke  af  de  maxi- 
mum  8  parametre,  der  har 
hvilke  indvirkninger  pd  den 
endelige  lyd .  Men  dermed  er 
ikke  sagt,  at  man  uden  vide¬ 
re  kan  sætte  sig  ned  og  gan¬ 
ske  enkelt  udregne  paramet¬ 
rene  for  den  ønskede  lyd.  Det¬ 
te  er  nemlig  en  noget  kompli¬ 
ceret  alfære,  da  mange  af 
parametrenes  værdier,  f  .eks. 
indbyrdes  påvirker  hinan- 


manualen,  at  BEEP-komman- 
doen  bør  anvendes  mere  ved 
'  eksperimentering  end  ved  at 
udregne  de  nøjagtige  værdi¬ 
er  for  de  8  tal. 

For  at  gøre  denne  ekspeh¬ 
mentering  lettere,  har  vi  lavet 
programmet  "QL  Sound  Ge¬ 
nerator  ",  Det  giver  mulighed 
for  at  eksperimentere  sig  frem 
til  smarte  lyde,  lagre  dem  og 
foretage  diverse  andre  nytti¬ 
ge  ting .  Med  lidt  flittig  brug  af 
programmet  skulle  det  være 
muligt  at  lokke  mange  spæn¬ 
dende  lyde  ud  af  den  ind¬ 
byggede  højtaler. 

Indtast  programmet  og  start 
med  RUN.  På  skærmen  ud- 


gelse  af  lydens  længde  Sam¬ 
tidig  spiller  QL  den  nuværen¬ 
de  lyd  i  højttaleren.  Du  kan 
bruge  cursor -venstre-  og  cur¬ 
sor -højre-tasterne  til  at  flytte  et 
markørtelt  rundt  mellem  de  7 
parametre .  Når  feltet  står  ved 
en  værdi,  du  vil  ændre,  bru¬ 
ger  du  cursor-op-  og  cursor- 
ned-tasterne  til  at  op-  og  ned¬ 
tælle  tallet.  Holdes  ALT  samti¬ 
dig  nede  vil  op-  og  ned-toel- 
iingen  køre  hurtigere .  Dette  er 
nyttigt,  hvis  store  værdier  skal 
ændres. 

Hver  gang,  du  har  opnået  en 
tilfredsstillende  lyd,  kan  du 
gemme  den  med  et  tryk  på 
F2,  Senere  kan  du  eventuelt 


af  alle  de  gemte  lyde,  mens 
F5  derimod  sletter  dem  alle 
sammen.  Endelig  nulstiller  Fl 
de  syv  værdier  for  den  nuvæ¬ 
rende  lyd 

Bemærk,  at  BEEP-komman- 
doen  i  programmet  bruges 
med  en  længde  på  nul,  når 
lyden  afspilles .  Har  du  i  sinde 
at  bruge  de  lyde,  der  laves, 
med  en  anden  længde,  må 
du  være  forberedt  på,  at  det 
måske  kommer  til  at  lyde  lidt 
anderledes.  Det  skyldes,  ai  QL 
faktisk  afspiller  en  lyd  med 
længden  Q  en  smule  ander¬ 
ledes  end  samme  lyd  med  en 
hvilkensomhelst  anden 
længde.  Sådan  er  det  ba¬ 


den  skrives  nu  alle  BEEF-komman-  hente  den  frem  igen  med  et  re 

Sinclair  nævner  da  også  i  doens  parametre  med  undta-  tryk  på  F3 .  F4  giver  en  udskrift 


.  O 


Esben  Krag  Hansen 


100  REMark  SOUND  GENERATOR 

UO  REMark 

120  REMark  t  C  >  1985  Esben  Krag  Hansen 

130  REMarU 

1  AO  DTM  valuie(7l  :  DIN  SDunds  (  1  00 , 2  J  :  cursaurd=Oi  pus-li  oldpOfi=U  DIN  limit  17  r  2 
y 

i  50  RESTORE  2000 

160  FOR  i  =  1  TO  ?!  READ  1  i  m i t < i , 1> ,  1  i m i t t i , 2 > 

170  MODE  8 

500  REReat  rnainloop 

510  PAPER  O!  INK  7t  CLS:  CLSttO 

520  CS1ZÉ  2,1 

S 30  PRINT  TO  10! -Sound  Generator* 

540  CSIZE  0,0 

550  AT  3,61  PRINT  41 P  itch";T0  14  j  "P  j  tcH_2"  TO  22;  *  Grad_*  4t  \  \  \T0  6  ;  41  Gr  ad_y ,f  ;  TQ  14;  "W 
rap "j TO  22 S "Fuzxy " \ \ \T0  6  I  "Random" 

560  AT  4,6:  PRINT  valueflUO  1  4  ;  va  i  u*?  (  2)  TO  22  i  valu*  t3  J  \  \ \T0  6  i  vs  lue  (  4  )  TO  14;valu 
e(5)T0  22; value t6) \ \ \T0  6jvaluel7) 

570  AT  13,5  , 

580  PRINT  "Fl  Resæt  lydvtfrdier  til  0"\T0  5UF2  Gem  nuværende  lyd"\T0  5;"F3  Hent 
en  gemt  lyd’nTø  5; "F4  Udskriv  alle  gemte  lydewVTG  S; "F5  Slet  alle  gemte  lyde"  * 
1000  REPeat  loop  -  -  ,  , 


52HS 
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*  »*****■*>  ■***<■■»*  li ■  - * ■  - 


■  ' :  >U'. 
,  *  *1 


OL 


HCT 

Nard-Chu  Tr:'jsi*.-. 


1OJ.0  IF  posOoJdpOS  THEN 

1020  AT  4+foIdpos-l)  DIS/  3*3,  6  +  (  oldpos-U  MOD  3*S 

1030  PRINT  vfllu# < ol dpos l TO  6+(oldpos-I)  MOD  3*3+3 

1040  AT  4+ f pus -15  DIV  3*3, 6+ ( pos- 1 )  MOD  3*3 

1050  PAPER  21  PRINT  Vaiue(pos)  TO  6+ipos-l)  MOD  3*3  +  8 

1060  PAPER  O 

1070  ELSE 

1030  BEEP 

1090  PAPER  2 

1100  AT  4*(pos-n  DI  V  3*3, 6+ tpos-i 5  MOD  3*8 
lllO  PRINT  val  ue  (pus  J  TO  6+(pos-l>  MOD  3*8  +  8 
1120  PAPER  0 
1130  END  IF 
1140  Dl dpos-pos 
J 150  REPeat  getkey 

1160  BEEP  O,  val  ut  ( 1  >  fValueL?)  , va 1 ue ( 3)  (  valu#(41  , val ue (51  ,  va  1  ue  <  6)  ,  val  ue  (  7 ) 

1170  key=KÉYRøkNQ>  :  key=CøDE  <  INKEY*(  -1 )  > 

1180  SELect  ON  key 

1190  ON  key=192 

1200  poS^pos- 1 +7* f pps=l i 

1210  NEXT  loop 

1220  ON  key =200 

1230  pos=pD5+l -7* (pos=7) 

1240  NEXT  loop 

1250  ON  k  ey  =203 

1260  va lue (pos! -vs  lue (pos  i +1 

1270  IF  value(pos5>1imit(pos,2)  THEN  value(pos)=limit(pos,l) 

1230  NEXT  loop 

1290  ON  key*=2  1  6 

1300  value (pos  1 =val ue (pos) -l 

1310  IF  val ue ( pas* < 1 im i t ( pos, 1 )  THEN  val ue (pos) = 1 imj t ( pos, 2 1 
1320  NEXT  loop 
1330  ON  key“209 

1340  value (posl"value (pps) +1O0 

1350  IF  val ue ( pos } > 1  i  tf i t t pos , 2 5  THEN  va  1  ue  (  pos  3  =  1  i  mi  t  ( pos  ,  1 5 
1360  NEXT  loop 
1370  ON  key=217 

1330  value (pos) cvalue(pos) -100 

1390  3F  vs  1 ue (pos > < 1 iii t ( pos, 1 J  THEN  va 1 ue ( pos ! = 1  i  mi t (pos , 2> 

1400  NEXT  loop 
1410  ON  key =232 
1420  BEEP 

1430  DIM  val  ue  (71  r  NEXT  mainloop 
1440  ON  key=236 
1450  BEEP 

1460  IF  cursound-100  THEN  AT  12,0!  CL5  2:  AT  16,8  :  PRINT  M00  lyde  er  lagret.,, 
fl '  key=KEYR0W(0) :  PAUSE:  NEXT  main  loop 
1470  cursoun^-cursound+1 

1480  FOR  l-l  TO  7:  5DundsicursDurut,  i  )=valuei  i  1 

1490  AT  12,0:  CLS  2t  AT  16,3 

1500  PRINT  "Lyden  har  rummer  'jcursound 

1510  number-KEYROW ( 0  > :  PAUSE  :  NEXT  mainloop 

1520  0N  key-240 

1530  BEEP 

1540  IF  cursound^O  THEN  AT  12,0:  CLS  2:  AT  16,8:  FRJNT  'Ingen  lyde  er  gemt":  num 
ber=KEYR0W(O> :  PAUSE:  NEXT  mainloop 
1550  REPeat  numbinput 
1560  AT  12, Oi  CLS  2 

1570  AT  16,5:  INPUT  “Indtast  nr.  pa  lydi " S  number 

1530  IF  nuroberjQ  AND  number < =eursound  THEN  EXIT  numbinput 

1590  END  REPeat  nuwib  input 

1600  FOR  i=l  TO  7:  value ( i ) =sounds (number , i ) 

1610  NEXT  mainloop 
1620  ON  key=244 
1630  BEEP 

1640  AT  12,01  CLS  2 

1650  IF  cursound=0  THEN  AT  16,8:  PRINT  “Ingen  lyde  er  gemt":  number “KEYROW  ( O?  1  P 
AUSE :  NEXT  ma i n 1 oop 

1660  AT  16,01  INPUT  “Skal  lyden  afspilles  samtidig  med “ ! “ udskr i f t en  af  værdier  ( 
J/N>  ?  "'svar* 

1670  CLS:  PRINT  "Tryk  på  en  tast,  hver  gang  en  ny  lyd  ønskes. “\\ 

1630  FOR  i=l  TO  cursound 

1690  PRINT  *Nr.#; 1! "i 

1700  FOR  n  =  l  TO  71  PRINT  sounds  (  i  ,  n )  5  :  IF  n<7  THEN  PRINT  11  ,  "  1 

1710  IF  svar*== " j  *  THEN  BEEP  0 , s ou n d s ( i , 1  1 , sound s ( i , 2 > ; son n d s ( i , 3 ) i sound s Ei , 4 } i  s 
□  urds  t  i  ,51  :  sDimds  (  i, 61  1  soundsU  ,7! 

1720  PAUSE:  PRINT  \\ 

1730  END  FOR  i 

1740  NEXT  mainloop 

1750  ON  key=248 

1760  BEEP!  AT  12,01  CLS  2 

1770  AT  16,3:  INPUT  “Klar  til  at  slette  alle  lyde*\STø  4J“-  er  du  sikker  (J/N>  7 

“ i  svar* 

1780  IF  5var*=="n"  THEN  NEXT  mainloop 
1790  cursound-O I  DIM  sounds ( 100, 71 
1800  AT  12, 0:  CLS  2 

1810  AT  16,8:  PRINT  *"Aile  lyde  er  slettet"1 

1320  number =KEYRQU (O )  :  PAUSE:  NEXT  mainloop 

1830  END  SELect 

1840  END  REPeat  getkey 

1850  END  REPeat  loop 

1860  END  REPeat  mainloop 

2000  DATA  0, 255, 0* 255, -32763, 15( -3,7, 0, 15,0, 15, 0* 15 
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■  I  dette  Lambcia  program 
skal  du  starte  s  i  mmen  med 
22  andre  vogn  I  tørste  om¬ 
gang  skal  du  overhale  de 
øvrige  deltage:©  (det  sker  i 
startfeltet),  og  derefter  styre 
gennem  svingene.  Men  pas 
på,  for  tilskuerne  smider  sten 
på  banen!  Du  skal  også  passe 
på  at  du  ikke  løber  tør  for  ben¬ 
zin, 

Aflæsning  a!  tastaturet  sker  i 
linie  1 1  og  24,  og  dem  kan  du 
jo  ændre  hvis  du  vil  bruge 
joystick  eller  andre  taster 
Programmet  kører  nemt  i  en 
»lille*  Lambda,  Det  vil  sige 
med  kun  2  KRAM.""' 

Poul  Møller 


x  cl  s 

a  print  , ,  f ,  *  *  *  Fmce 

RLØB  #  *  fC>  POUL 

HØLLER" 

3  PRU5E  Søø 
4.  CL5 

5  FOR  N  TO  11 _ 

6  PRXNT  Xm 


7  NEX7  H 

8  Y=167S© 

9  PØKE  V(0 
1©  POKE  Y,8 

11  IF  INKEY  $  <  >  "R  "  TMEN  GOTO  9 

12 

13  Xp13 

15  5 - I NT  JRND#3>  fl 
IS  S  +  (B -1  AND  X<6>*2-(B~3  AN 
D  X  >21)  *2 

17  FOR  N  = 1  TO  S 
1©  POKE  Y\>  © 

19  SCROLL 

23  X*X+E-2 _ 

21  PFlilll  WW— MM 

TThT 

mTT^T^m "  »=<nd  5=2;  at 

r  4#  AND  B  =  1 

22  XF  RND (P/20  THEN  POKE  1720S 
+X+RND, 2? 

23  POKE  Y -33 ,  O 

24-  Y^Y+  flNKEVir’T"  i  -  (  INKEYS*"  7 

25  XF  PEEK  VOØ  THEN  GOTO  29 
2©  F-P+0.011 
27  NEXT  N 

23  GOTO  (RND  < Pr' 999)  *23+3.5 

29  FOR  N  =  1  TO  3© 

30  POKE  Yf 8 

31  SQUND  15  > 99 

32  POKE  Y,23 

33  NEXT  N 
34-  SCROLL 

35  PRINT  "DU  KØRTE  ".iPj  "  K»" 

35  PAUSE  454 
37  RUN  4. 

3©  SCROLL 

39  PRINT  "DU  ER  L3BET  TØR  FOR 
BENZIN “ 

4.0  POKE  Yj© 

41  GOTO  34 

42  300  E  "RRCERLØEI" 

43  RUN 


Amcircle 


/// 


■  Som  regel  skal  der  ikke 
meget  til  for  at  lave  de  flotte¬ 
ste  mønstre  på  en  grafisk 
skærm,  Prøv  blot  dette  lille 
program,  der  tegner  op  til  30 
forskellige  cirkelmønstre  i  vil¬ 
kårlige  farver. 

Prøv  også  at  bruge  nogen  an¬ 
dre  funktioner  end  lige  COS 
og  SIN.  Denne  idé  med  at 
bruge  matematiske  funktio¬ 
ner  til  mønstertegninger  kan 
med  fordel  bruges  til  at  pep¬ 
pe  ens  egne  programmer  lidt 
op!  □ 

Kaj  Laursen 


amsthad 


o 


is 


1  REM  CIRKEL  MØNSTRE  \ 

2  REM  Copyright  KaJ  Laursen  \ 

lø  s«INT(RND*3ø+l )  V  v 

2ø  CL  S' ;  BORDER  øs  INK  ø,ø  V  > 

30  x=  I  HT  (  RNDT26  ')  ■  I  HK  l,x  V 
4ø  y  =  I N  T  < R H D * 26 >  = I H K  2 , y  ^ 

z=INT  <RHD*:26X  INK  3,z 
60  FOR  n=ø  TG  36ø  STEP  s 
7ø  MOVE  320,200  """ 

Bø  D R fl M  320+ 1  ØØ  tCu S(  n  > 2 øø  + 1 9 øt S I N< 
9ø  DRhM  32ø+ 1 9ø t COS-:'  n+2 .  5*s  > ,  2øø+ 1 : 
løø  DRRN  320,200,3 
110  IF  INKEY3K  >" "  THEN  19 
12ø  NEHT 

13ø  IF  INKEY$<  >" "  THEN  10  / 

14ø  GOTO  I3ø  ‘  / 


i),  1 

I  To  I  H(  ti +2  „  )  ,  2 


Hct- 


6? 
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INDEX  print 


CONMO 

DOOI 

64 


■  Indexprint  til  Commodore 
64  giver  dig  mulighed  for  at 
lå  orden  i  dine  bånd.  Selve  fi¬ 
lerne  med  tæller  og  titel  kan 
også  lægges  på  disk.  Blot 
skal  linie  1  rettes  til  8  i  stedet 
for  1 .  Du  kan  både  lave  num¬ 
mersty  ret  og  alfabetisk  ud¬ 
skrift.  Ellers  er  programmet 
selvforklarende  gennem  sin 
hovedmenu,  □ 

Martin  Petersen 


Index 


Altom  DF1TR 


>  VtA  f 


m  ® 


HCT 

tkmi  Ct*  TFy&yW- 


1  TD=  1  :  GQT02  !  1  =  TAPE  ,  3  =01  SK 

3  R E M*  #SK RE VE T  AF  MARTIN  PETERSEN  1 935 ##*##.#  #### # # # # #***  *##  ####  *## ##*# # 
5  D IMTA<  100 > :□ løø ) 

10  P0KE53S8  1  ,254  s  P0KE53230  .  24 E :  PR  I  NT  "  Jj 11 
20  PR  I  NT  "  Kffiligi  .  NUMMERERET  UDSKRIFT" 

30  PRINT"H2,  ALFABETISK  UDSKRIFT" 

40  PR  I NT *33  .  HENTE  DRTR  FRR  BRRND/D I SK " 

50  PR  I  NT  "  SJ4  ,  INDTASTNING  RF  DRTR  " 

55  PPI NT "35.  SLUT" 

30  PR  I  NT "  rnigtfTv1  R  E  L  G  TRL  FOR  ØNSKET  FUNKTION!" 

70  GETR! I FR< 10RA>5THEN70 
80  IFA= ITHENG0SUB2O0 
30  I FA=HTHEN603UB3GG 
100  I FA  =3THENG0SUB40ø 
110  I  FA  =  4“rHENG0SUB500 
120  I  FR=5THENP0KE53230 ,254  !  P0KE5323  1  ,24S  :  PR  I  NT 11  L'JM11  :  CLR  :  STOP  :  END 
130  G0T010 

180  REM#  *  *  *  t NUMMERERET  UDSKRIFT*###*#*## 

SOO  0PEN4  ,4  :  PR  INT«4  ,CHR*'I  1 4  >  "BAND  "  f  BA;  "  S  I  DE  "  i  S  I  ;  CHR*C  1 5  )  :  PR  1NTH4 
210  FORB  =  1  TORN  s  PR INT«4  ,BJ  CHR$<  18  >  "04  I  "  ;  CHR$<  1  S  >  "OS  "  ;  TAC  B  )  ,*  CHR$<  16  >  "  12  |  "  ; 
230  PR  INT«4  ,CHR£<;  1 6  )  "  1 4  "  .?  NA$<  B  )  s  NEXT :  CL03E4  s  RETURN 
230  REM#  *  *  *  *ALFRBET I SK  UDSKRIFT*#*#**### 

300  ØPEN4 ,4  :  PR  INT«4  ,CHR$(  1 4  >  "BAND  "  J  BR  J  11  S  I  DE  "  ;  S  I  J  CHR$<  1 5 ) : PR  I NT#4 : G=0 
310  FORB  =  65T030  :  FORD  =  1  TORN:  IFASC*  NASC  OK  >BTHEN340 

320  G=G+  1  i  PR  INT«4  ,G;CHRÆC  13  )  "04  \  "  ?  CHR^.  16)  "06"  f  TR'I  C  > ,  CHRi*:  IS)  "  12  [  "  ; 

330  PR  I  NT« 4  ,CHRS(  16  )  "  14";  NA*<  C  ) 

340  NEXT : NEXT : CL0SE4 : RETURN 

33 O  REM#**## DRTR  FRR  BAA ND KO  IS K # *. ***#*## 

400  INPUT"BAANDNUMMER,SIDE";BA,SI  :  E$=STR$<  BRJ+STRS':  SI  ) 

410  0PEN1 ,TD,0,E$:AN=0 

420  AN=AN+  1  :  I  NPUT«  1  ,TA<  AN>  :  INPUT«  1  ,  NAÆ<  AN)  :  IFNA«  AN)  <  >  "  SLUT  "  THEN420 
430  RN=RN~ 1 : GLOSE  1 : RETURN 

480  REM***** INDTASTNING  RF  DATA****#*### 

500  PR INT" J" s  PR  I MT "MEMO  ,SLUT=STQP " : RN=0 

510  AN=AN* 1 {  I NPUT " BRRNDTERLLER , T I TEL " ' TA< AN) ,NA$\  RN> :  IFTAC  AN > <  >0THEN5 10 
520  I NPUT "BRAND  NR.,  S  I OE ” ; BR ,S I : ES=STRS< BR ) +STR3K  3  I ) 

530  OPEN 1 , TD , 1 ,  E$ : FORB  = 1 TORN*  PR  1  NT« 1 ,TA<  B) :RRINT«1 ,NA$<  B) s  NEXT 
540  AN=AN- 1 : GLOSE  1 : RETURN 


Programmer: 

Samtlige  aftrykte  listninger 
er  afprøvede  tør  offentlig¬ 
gørelse  Fortaget  betaler 
skattefrit  op  til  1000  kroner 
far  godkendte  laeserpio- 
grammer.  Forlaget  har  ret  til 
at  aftrykke  godkendte  pro¬ 
grammer  i  bladet  og  offent¬ 
liggøre  dem  pd  andre 
lagermedia. 
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Hole  in 


-AføjjÆain— 


20  RRNDUHI2E 
30  DPEN*0,0 
50  7TAB£17I  j  "GOLF"' 

90  J7i  j  "■* 

110  ^l7"VflllroiiwnBn  ti  J  M»t  -qol  #  .  ‘ 

120  L|NPLlTt"U*jl*,dimng7Hl** 

130  **=LEFT*ta*, 1 I 

140  1F  a*<  >"y  "  AND  a*<>"Y"  AND  a* 

»*<  >*  “  ThCN  G0T019O 

ISO  ?i?,,Spi  I  lit  kan  spillet  af  1  til  4  psrtaner 
152  ?bD?  Ican  forløbe  ovir  1  til  8  cungange,  I™ 
13*  7 "hver  □»gang  forsager  en  spiller  at  sln“ 
150  ?" bo Iden  i  hul  i  tn  f ft  slag  som  muligt.  Ét" 
158  7"»1 ag  angives  ved  retmhyn  mod  hullet  i” 
160  7“i  grader  I ,  al agatyr  kah  samt  vinklen  med" 
162  or  den  ( i  grader ) .  SI  ag at yrken  ak al  have" 
164  7 "en  vrrdl  h  aCxtl  ikke  Overstiger  25  plus'" 
166  ^"vinklen  »ed  jorden..  (Dén  maksimale  slag-" 
160  7"*lyrk»  for  en  jdrdtril  f>r  bliver  au  ledes'" 
170  '7"25.  I  "17 

176  ^"Slag  mod  hul  vanskeliggøres  af  vinden1’ 
17B  7" C vi nd styrker  fr*  ]  til  121  oq  to  trrtr," 
190  T'iem  riet  er  umuligt  at  skyde  ov*r .  Efter" 
192  7  "et  slag  er  angt  vet ,  vil  bol  den  begynde"1 
194  t" *t  bevrge  eig  over  skrr»en.  Hedsi  ag spo— " 
196  7"si t i onen  marteres  »ed  en  lille  &tregT" 

1 98  7 "hvor ef t. er  do | den  vil  trille  yder  1 1 g#r e " 
190  7 het  et yk ke .  God  f ornp j e I  se 1 "s  7 
196  CLEAR*  te* .  15 
198  ØN  ERROR  GOT 0  0000 


atO'1  jJt 


**<  >"J’ 


»i 


4  !  " : GUTU2QQ 


7l7"*i#  Antal  mellem  1  eg  9 1 “ i  GO 70210 


"  *LEFTi(STR*(qJ ,2> | "*  SPILLER  -  "  f  LEFTt  (BTfit  ( 


»by  1 199 j ,tby(PI/2> 
mbyi 199) ,tby(PI/2> 


plaeaU 12,20) T5TR*{val 
pi  ae* 1 124, lOl 

tby I5*PI/6) ,dby (3, 1 ) . 


tby{PI/6S  ,  ilby  {3  , 


200  INPUT { "Antal  spiller*  i  "laa  \ 

202  as-INT ( as) 

203  1F  is<  1  OR  as >4  Th£n  ?i7“»**  Antal  mal lam  1  og  41 "19810200 

210  INPUT {"Antal  omganga  t  " ) ao  /  f 

215  ao-INT lao)  ;  ( 

220  1F  ao { 1  OR  ao >9  TUEN  7lT"*»*  Antal  mel  Lem  1  og  B'"iGDT021O 

230  Din  ar  fas, ao)  \  f 

240  FGft  pal  TD  ao  \  \ 

230  FDR  g»l  rO  as  \ 

400  OPENaO.O, "300"  \ 

410  CL OSE Hl  I OPEHN 1,11, "200" 

420  TF  ast  >  1  GR  HOl  TUEN  7*  7"  " * LEFT* CSTR* <qi , 2> | " *  SPILLER  -  "  j LEFTt  (9TR*  ( 

p  )  r2)  £  .  OMGANG" 

4  25  ar ( q , p  J  *0 

430  plot  range <320,200  I 

440  plot  »by <3191 , tby (Pl/21 T  »by  1 199> ,tby IP I /2) ,  V 

»by  <3191 ,tby{PI/2l ,  mby 1 199) . tby (PI /2>  l 

tOO  vs  =  l  +  INH  12*RHDl  lV 

700  vr-2#PI#RND-PI 

800  a 1 -v  s *CGS ( vr ) t a2= vs*S IH  I vr >  ^ 

900  plot  placal  H , 20) , "Vi ndstyr kv  i",  placaU  12,29)  ,STRf  {val 

1 000  plot  plat* I  S , 1 0  I  , “ V i n  dr  et  b i ng  i",  pi *6*  4  124,101 

1 100  IF  vr<0  GOTO  1400 

1200  plot  trnLvrl  , mby(IO),  tby {5*P1 76) ,dby (3,1) , 

tby tPl/31  , dby (3, 1> 

1300  BOTO  1500 

1400  plot  trn{PI+vr  I  ,dby  UO,  1>  1,  tbyiPl/6)  ,  dby  {3,11  t 

tbyUPl/31  ,dby  13,1  I 
1500  a«PI *RND 
1600  X  a  | 60+ 1 4Q*COS ( a I 
1630  Ve  1 70—  1 40*5 1  hl  (  a  1 

1632  v9*INT (PI *KND) 

1633  h  »1G*102*KND 

1634  nS* 1 60  *w  *  G05 I v9 1 

1636  y8-|70-n*5IN(v9l 

1637  IF  SGN(w-160)*SGH£m8-160m:0  THEN  k8=320-m8 

1638  v9-1NT(P1#RND) 

1639  h  =23*92*RND 

1640  *9«160+h*COS{v9) 

1642  y9“  1  70-IH09 INI v9 ) 

1643  IF  SGN(k-160S "SGN !« 9- I 60> <0  THEN  x9-320-x9 

1644  IF  tx9-K01"-2+{y9-yG>"2<623  THEN  GOTO  1638 

1645  plot  place()t8,¥S“T0l  ,tmtO)  ,  ire t20*PI , 2#PI > , 

p 1 ac ■  I  mø , y  B  v , f 1 1 1 

1646  plot  plac*(*9Ty9-15J  ,trrU0l  T  *rt I30*PI , 2*KI > , 

p  1  ac  •  ( x  9 ,  y9 1  ,  f  1 1 1 

1650  plat  pl*£:*(  160, 162)  ttrn  (OJ  ,  aro ( ,2*PI >  ,dot  1 160, |?Of  1 1  , 

dat  C x  , y i  1 > 

1670  IF  *>Kl/2  THEN  plot  pi ace Cm-12 ,y I , "S" ,pl ac* {« ,y ) i 

GOTO  1700 

1690  plot  plac*{x+4Ty> ,"B",placa (x,y> 

1700  PUT#0,3l 

1720  I  NPUT  {"Retning  »od  hul  i  "H 
1750  INPUT ("Slagstyrke  i  "Iv 

IBOO  IF  v<0  DR  v  >1 1 5  THEN  7i7"**f  SI  ag styrken  mel  lam  0  og  1 15 ’ " t GOTOI 750 
1900  INPtJT  ("vinkel  »ed  jord  i  "Ib 

1920  IF  b<0  OR  h  >90  THEN  7*7"**»  Vinklen  »ellem  0  og  90  gr*d*r!,rs  GOTO  1900 
1930  IF  v  1-25*6  TWÉK  7,7"ss*  Slagstyrken  »n  hpjat  vr  ro  25H 1 7"  større  end  vinkl 


THEN  x8=320-x8 


■10> , trn (Oi 


THEN  kV320-x9 
THEN  GOTO  1638 
ire I20*PI ,2#PI> , 

*rcl30*PI ,2*PI> , 

øre { 16*PI ,2*PI I ,dot { 160, 170,1  I  , 

plot  pi ac*  tu -12  ,y I  ,*3" ,pl*C*tx ,y ) i 


1720  INPUT {"Retning  »od  hul  x 
1750  INPUT ("Slagstyrke  *  "tv 

1B0O  IF  v<0  DR  v>l  15  THEN  7i7"**#  SI  sgstyrkÉMi  mellam  0  og  1  lS’"tG0TC 
1900  INPUT ("vinkel  »ad  jord  i  "Ib 

1920  IF  b<0  OR  h >90  THEN  7*7"**«  vinklen  mellem  0  og  90  grad*r,,rt  E 

1930  IF  v>25*b  TWÉK  7|7"#s*  Slagstyrken  »n  hpjat  vrre  25Hi7"  stør 

an  med  jorden  L  “  t  BtlTOl  750 

1950  *r  Tg  ,p)  aar  Cg  ,p  3 +1 

1975  a=a*P|/lBOxb-b#P17100 

2000  IF  b<-0  GGTU  3100 

2030  k-pen £01 xyMpen! 11 

2100  vx-vaCQSlb) "COStal 

2200  vy- v*COS ( b ) *S I N ( s i 

2230  t-v#SIN(b>/5 

2300  FOR  i-l  TO  t/t* 

2310  IP  CxØ-penlOJ  ) '-2+lyfi-pen  (  Ill^CelQO  THEN  «  7-x8;  y7=yBi  DO  IL 

2320  IF  I  k  9— pen  {Oli  "2+  {  y9  -pen  (|)l  *2<  - 223  THEN  hl  7-  x  9  3  y7  -  y9f  BOT  L 

2330  GDT02400 

2340  IF  pen(2l-Pl/2  OK  p*n(2l--PI/2  THEN  v9*pen (21 +PI i  OO 

2350  v9“2*ATN{ (penli ) -y7l/  (p*n{0l-K7ll 

"pen (21 -P I 

2360  v“S0K(¥M^2+vy"’2J 

23B0  Vk  e  v ■ COS ( v9 1  *  wy«v«S 1 N ( V  9  I 

2400  vn»Wk+ii*teivy«vy*»2it# 

2450  plat  iivb  (pen  tO  I  +vx  *  t*  ,  p*nlll  +  vy#t  e  ’> 

2500  NEXT  1 

2900  v»SPR  t  v  k  ^  2  ty y^  2 > 

2940  IF  vh»0  AND  vy>-0  THEN  a=  P|/2xBOTtl  3070 

2970  IF  vMO  AND  vy^O  THEN  4  =— P  I  / 2 x  GOTO  3070 

3900  A=ATN(Vy/VU 
3050  IF  Vt<Q  THÉN  A=A+PI 

3070  pint  tby(PI/2)  ,dby£3,  2,1 1  ,  tbylPH  1dbyl3.2. 

tby (Pi/21 
3 1 00  plot  tr  n  C  * 1 
3300  plot  »by(v»te> 

3310  IF  tMfl-pen  tOI  >  *2+  (yB-pen  (1  >  I  ^-2C=  100  THÉN  *  7=m9s  y7*yBt  GOT 

3320  IF  I m 9— pen  lO)  >  "'2+  C  y9-pen  (111  ■"2<m225  THEN  h  7~m9*  y7-y9l  5DT 

3330  (50T03400 

3340  IF  peni2>=Pl/2  OK  p#n  (  2  I  =-Pl  /2  THEN  plot  tby  (PD  i  GO 

3350  plot  tby (2*ATN i (p*n { 1 1 -y7 j /  lpen(0>^ 

-2*p*n £21 -Pli 

3400  IF  (pen  (01 -1601  rt2*  tpen  (  I  >  -  I  70>  -"2C  =3  &□ 

3500  vav-!5*te 

3600  IF  v  >0  THE«  GOTO  3300 

3650  IF  arlq^)^?  THEN  ar  <q  ,p  I  -  IOj  GOTO  3800 

3700  GOTO  1700 
3000  PUT*0,3l 

3850  7  "HUL  1  "t  LÉFT»ÉSTR*(*r  (q,pll  ,L£N(STR*(  ar  (q.pM  1-1  I  U'*  FORøltG. 


'  t GOTOI 750 


2000 

2039 

2100 

2200 

2230 

2300 

2310 

2320 


2360 

23BO 


2940 

2970 

3900 

3050 

3070 


3310 

3320 


3400 


THEN  K  7- K  8 ; y7 =yBi GG  T  D2340 
THEN  *  7- X  9  3  y  7 -y9i BOT  02340 

THEN  v9-pen  ( 2  >  +p  I  X  GCIT  02360 
(p*n ( Ol -«  71 S 


pen  ( 1  I +vy#tei 


r  P  I  /2x  OOTtl  3070 
Z-P 1 /2x  OO TG  3070 


tbylPIl  , dby {3.2,11, 


THÉN  x7=m9i y7ayB:OGT03340 
THEN  k  711*1?!  yTay9c  GDT03340 

THEN  plot  tby (P  U  x  GO 1034 OO 
[pen (01 —x  7 )  I 


in  (  I  1-I70V 


GOTO  3BOO 


ar ( q , p I  *  i o i  GO  T  8  3800 


t-  V 

oc^ ! 

i 


bis.  > 


■  'H  / 

J^a, 


3  udlist  ningen  bruges  danske 
specialkaiakteren  De  svarer 
til  lølgønde  taster: 

Æ  =  [ 

0  =\ 

Å  =] 

æ={ 

ø  = : 

å  =} 


r<ø6-0  ’■ 

3865  IF  ac= 1  AND  as=l  GOT075OO 
3875  7,  iripuTT"Tryk  NElriL  1NE  H  )  a* 
3900  NEKf  g 
4000  NÉXl  p 
4950  0FEN40,0 


4075 

4100 

4200 

4300 

4400 

4500 

4990 

5000 

5100 

5200 

5300 

5500 

5600 

5700 

5900 

5900 

6000 

6100 

6200 

6300 

6400 

6500 

6600 

6700 

6800 

6900 

7000 

7100 

7200 

7300 

7350 

7400 

?300 

7600 

7700 

7800 

7900 

BOOO 

9000 


7*7 

a*  =  H" 

FQR  i «1  TO  as 
a*=»atV" 

NEKT  i 

**-*«!•"  " 

7TAB<7> i " "j 
FUR  i-1  TO  #« 

SP"|  i  E  1 A |  "  "  | 

NÉ.7  T  l 
7i7a* 

FOK  i=l  TO  au 
?,r0KG’,iiE14*  ""| 

FUR  j=1  TO  as 

7ar<  j,i>(E46i  ""i 
NEXT  j 
7  i  7a* 

NEKT  1 

7"  ialt 

FOR  i«1  TO  as 

1-0 

FOR  je 1  TO  AD 
thi  +  ar  S  i  ,  J  1 
NEXT  j 
7»E4A|"" J 
NEXT  i 
7 

FOR  i-l  TO  7« (as+ 17—1 

7«  “  | 

N€!(T  i 

?““ 

7 

?l  LINPUT  I"  lq*n7"  164 
*MLEFTKa*,U 

IF  a*=Hy"  OR  a*w"¥"  OK  a*="jh 

**a" H  THEN  PUTaO,3li8010l9* 

7*7*7" Tak  for  denne  gang. “ 

END 

'»i 7"#**  inddata  skal  angives  so»  et 
REØUHE 


m  Spillet  går  ud  på,  at  man 
skal  indtaste  tre  ting  for  at  sky¬ 
de  til  bolden.  Først  bliver  du 
spurgt  omr  hvilken  retning  du 
vil  skyde  bolden,  Dernæst 
skal  du  opgive,  hvilken  slag¬ 
kraft  du  vil  ramme  bolden 
med.  Til  sidst  skal  du  skrive, 
hvor  mange  grader  fra  jorden 
du  vil  skyde  til  bolden. 

For  at  gøre  det  hele  sværere, 
er  der  lo  træer  man  ikke  må 
ramme,  og  vinden  blæser 
konstant  bolden  lidt  væk  fra 
det  sted,  hvor  man  vil  have 
den. 

En  betingelse  er  dogr  at  man 
holder  bolden  indenfor  ba¬ 
nen  Gør  man  ikke  det,  ser 
man  næppe  sin  bold  igen. 
Man  kan  være  op  til  fire  spille¬ 
re  og  spille  flere  omgange.  Til- 
sidst  bliver  der  tegnet  en 
potnttavle .  Retningen  man 
skal  skyde  bolden  i  er  i  grader 
og  ser  sådan  ud: 


18Q< 


-i-  ■ 
i 
i 

270° 


□ 

Steen  Palm 


40  Soft  Special 


60  PRINT*  '■ . . -  . . . . — 

?  ø  PR  T  NTT  R  E  (  i  ø  >  ’ '  JrøWOO  5P 1  *  TOT  R  L  " 

PR  I NTTRB  ( 1  ø>  "  B3SF3*  IN  I  REGI  /  UDGIFT" 

85  PR I NTTRB < 10)"  1SSF5*  UDPEGNING  RF  T I  MELON 
30  PR  I  NTTRB (  1  0>  "  LORD  DRTR" 

løø  PRI NTTRB (10 >MSSF8S  3HVE  DRTR" 


585  REN  LORD  DRTR 
53ø  REN 

600  OPEN 1 j  øj "DRTR  FIL 
610  I NPUT  # 1 f  U 
62ø  GLOSE!  GOTO 1 O 
700  PEN 


Kære  læser.  .  (  TH  f  •  W  LI 

Vi  håber,  ot  du  er  tilfreds  med  programmerne  i  \  \V  v  å  LJ 
SPECIAL. 

Skulle  du  ligge  inde  med  tilsvarende  gode  -  og  måske  endnu  sjovere  og 
bedre  -  programmer,  du  selv  har  lovet,  hører  vi  gerne  fra  dig.  SOFT  er 
nemlig  læsernes  blod,  og  vi  betaler  op  til  1000  kroner  for  et  rigtig  spæn¬ 
dende  program.  Og  måske  får  netop  dit  program  en  fremtrædende  plads 
i  det  næste  SOFT  SPECIAL  eller  i  "Alt  am  Dato", 

Indsend  dit  program  på  kassettebånd  eller  disc  ag  gerne  vedlagt  en  ud* 
printning.  Samtlige  programmer  testes  og  vurderes,  inden  de  offentliggø* 
res.  Alt  materiale  returneres  efter  brug,  og  bladet  har  fuld  ret  til  at  publi¬ 
cere  programmet  på  tryk  og  eventuelt  andet  lagermedium. 

Programmer  sendes  til  "Alt  om  Data",  St,  Kongensgode  72, 1264  Køben- 
hovn  K. 


CflTfl 


Alt  om 


Hold  styr  på  time 

■  Har  du  altid  hatt  mistanke  maskinen  nemlig  holde  styr  I  Bg^  Bg^ 

om.  at  din  lokale  købmand  på  bankkontoen.  Du  kan  og-  I  W  M  V  '■fpjj 

svindler  lidt  med  de  penge,  så  indtaste  antallet  at  ar-  I1C#  I  II 

rhi  fAr  fnr  Htf  HnHinb  TTrtr  Hn  heiftetimor  få  dftt  boløb  dn  ™  ™  ™  ™ 


■  Har  du  altid  haft  mistanke 
om,  al  din  lokale  købmand 
svindler  lidt  med  de  penge, 
du  tår  tor  dit  bud  job,  Har  du 
nogensinde  sat  dig  ned  og 
regnet  timelønnen  ud,  som 
du  tår  for  at  Hytte  fedtede 
papkasser  og  for  at  kæmpe 
din  "longjohn"  gennem  regn 
og  blæst? 

Du  kunne  f.eks.  lade  din 
Commodore  64  gøre  arbejd 
det.  Med  dette  program  kan 


maskinen  nemlig  holde  styr 
på  bankkontoen.  Du  kan  og¬ 
så  indtaste  antallet  at  ar¬ 
bejdstimer,  få  det  beløb  du 
har  tjent  og  eventuelt  lagt 
oveni  totalen, 

I  linie  1070  skrives  timeløn¬ 
nen.  I  programmet  står  20, 
men  det  skal  ændres,  alt  etter 
hvilket  beløb  du  tår.  I  øvngt  er 
programmet  selvforklaren¬ 
de, O 

Bjørn  Bay 


2  REN  *  (C)  EJflRN  DRV 

3  REN  wmm***WMW*$W*M 
?  REN 

S  REN  OVERSIGT 
8  REN 
10  54=53230 

2ø  POKEX+l,3’PQKEX-8 
30  PRINTCHRf (147) 

4G  PRINT11 13  , - - -  ■ — 

t= ■  n  hnruf  II  I  r>tr  iO i. l-C'-L-’-Ci ti th Oi  if  !tl< 


1984 


f  TlTtL'M  DCl'J 


458  I FCf ■ " " T HEN 4 4 9  — ' 

46ø  IFC$= " THÉN430 
470  I FCf- "5" THEM540 

480  C=ø-  INPUT,'WM?rør=TSlIND‘VRST  INTRLGT 

4?ø  e=6+G 

500  FGRX=1 TU5øø - NEXT : GQT0200 
5 4ø  B =0 '  I  NPLI T  "  STrøfrøjM INDTRST  UDGIFT" 
55ø  B-B-C 

569  F0RX= 1 TOSØØ : NEXT ■ GGTOSOG 

cnft  r.f"M 


110 

130 

14ø 

16ø 

17ø 

175 

177 

130 

135 


200 

210 

220 

23ø 

24ø 

250 

260 

270 

230 

230 

409 

410 
420 
430 
44ø 


GETRf 

I FRI- "  rn"  THEN200 ■ REN  F 1 

IFR$="§'"THEN4øø  :  REN  F3 
IFRf ="fr'  THEN  1000  :  REN  F5 

IFRT=  "I!" THEN600 -  REN  F'7 

1FRJ-"  ■"  THEN800  •  REN  F8 

GOT G 1 1 ø 
REN 

REN  TGTRL. 

REN 

RRI NTCHRf ( 14?  > 

PR | NT"  3Tf  OT HL" 

PRINT'  JOTaSI^U  HRR  NU  FRH  PIN  KCtNfQ" 

PR  I  NTTRB  (  1 8  1  ,J  røWGROTTR  YK  ÆN  T RST  " 

GETBf 

1FB$=" "  THEN240 

GOTO  10 

PEN 

REN  I MUTflEGT/UBG I F 1 

REN 

PRINTCHRf (147> 

PRINT*  aiNDTREGT  /  UDGIFT" 

PR  I  NTTRB  (  12)  "  rørøflrøEF  1  ■  INTflEGT" 

PR 1 NTTRB <12>“W3F39  UDGIFT" 

G£TC$ 


730  REN  GR  VE  PH  TR 

7Sø  REN 

800  GPEN1  .i  M  ;  "DRTR  FIL"  JMTOPPrø 

8 iø  fri nt#i  i  e 

B2ø  CL0SE1  :  GOTO  10  11  -  -  J 

980  REN 

985  REN  TINE LØN 
9?ø  REN 

løøø  PPINTCHRf(l47> 

lølø  PR I NT "M  aUBREGNING  HF  TIMELON" 

1020  PRINT"  mmj  NBTflST  NU  DE  I  flNTRL  TINER  OG  NI  NU 
1030  PRINT  "BMP  LI  HRR  VHERET  PRR  RRBEJDE." 

3  ø4ø  T~  0 :  N=0  :  F  =ø  ■  G=ø :  E=ø  :  l  NPUT  "  3SWMRN7  HL  T I  NER 11 ;  T 
1 0 50  I NPU  T ' 1  PTjH  NT  HL  NI  NU '  rE  R  "  1  M 
lø6ø  E“ T*6ø ■ E-E+N 

1  ø7ø  F =20760  ■  REN  1  20 "  EF1  ri  HEL  ØH 

1080  G=F*E 

i  ø 9U  PRINT" mSDU  HRR  TJEN?  S" G " WR .  ” 

1110  PRINT  "  HEM3KRL  DE"  G"  KR.  P  LUD  SES  TGTRL.EH  C  J/N) 
1120  GETG* 

1130  lFGt=,fJ"THENl2øø 
1140  IFG$“'*N"  THEN  1300 
1150  GOTO 11 20 

1200  P”F+G  r  F OF: X - 1  T 0 5 ø ø  ;  N E X T  ■  G 0 1 ' 0 2 00 
1 øø  F  0RX=  1 T 05 0 0  :  G 0  T  0  !  ø 


1 H  R " 


Soft  Special  4 1 


JAMEN...  ER 

DET  iUKE 

STRIP-  POKER. 
????? 


*  *  * 


]0  BORDER  e:  PAPER  4-  IN K  0:  CLS 
20  BEEP  +  5 , 20  =  BEEP  . 2, 20 
30  PR J NT  AT  0,5  ;  INK  1  j 


V- 


40  PR J NT  AT  l»|ø;  PAPER  4  i  INK  ø;"SPIL 
LEREGLER " 

50  PR j NT  AT  3,0;  Poengel  i  delte  spill 
et  er  aa  faa  k o r \ summen  s  aa  naer  21  so 
m  muiig,men  Ikke  over. Du  starte!  spil! 
et  med  1000$  og  et  kort.  Du-  bl  ir  s  aa  s  pur 
t  om  hyor  mye  dj  y ; 1  satse. 

00  PRINT  AT  JØj-Øj  La  oss  si  at  du  f aar 
en  Konge?  Og  at  du  satser  100$  paa  den 
.Oli  Fa&r  saa  en  5fer  og  bar  total-  summ 
en  13, Na ar  Spectrum  spoer  ’  U  i  l  du  ha  e 
t  kort  til  9 9  trykk  5j’  for  ja, Hvilken  s 
om  belst  armen  for  ne  i  , 

70  PRINT  AT  17,0;“ Hy i  s  ne ;  y i l  Speclru 
m  dele  ut  bankens  kort,’’ 

30  PRINT  AT  20, 6;  "Trykk  paa  en  knapp , " 
30  PAUSE  0 
100  CLS 

110  PRINT  AT  0,0  i  5  kort  med  totalsum  p 
aa  2J  e  L  Lermindre  teller  som  2  i ,  '' 

120  PRINT  AT  3,0;  Banken  yil  trekke  kor 
t  til  han  faar  16  eller  mer, eller  mer  e 
nn  d e g . 

I3ø  PRINT  AT  7,0;  Hvis  du  og  banken  faa 
r  s&mifte  sum, da  vinner  bank en, De  tte  er 
,  Bankens  f  o r d e  l  J  .  " 

140  PRINT  AT  1 2,0;’ Kort yerdieoe  er  2  ti 
i  1 3 , f l u  $  s  Esset  som  teller  som  1  eller 
M.Oerdlen  for  Esset  vil  aut  ornat  i  s  k  b  l  i 
juster!  for  aa  gi  en  sum  saanaer  21  som 
mu  I  !  g  ,  1,1 

150  PRINT  AT  1 3,  ø  .i  Ho :  s  du  faar  21  yil 
Spectrum  automatisk  dele  ut  bankens  k 
ort*  11 

160  PRINT  AT  2J,5;"Trykk  paa  en  knapp. 
170  PAUSE  ø 
380  CLS 
194  REN 

] 35  REN  Start  spillet 

136  REN  888888  88  8  tutti 8#888tittttti88 

200  CLS 

210  LET  penge r ~ 1 000 
220  s 

230  PRINT  AT  0,14;  PAPER  2;  INK  ?\ . 21 

Sk  il  n 

240  PRINT  AT  øs2;  PAPER  0;  INK  6PSPILL 
ER" 

250  PRINT  AT  ø,23;  PAPER  ø;  ]NK  6L  BANK 
EN" 

270  LET 
280  LET 
23ø  LET  zt--M 


300  FOR  4=2  TO  ja  STEP  4 
310  PR J NT  AT  a,2;  PAPER  7}  INK  øjx$;AT 
a ,  23 ;  PAPER  7;  INK  øjx$ 

320  NEXT  4 

330  FOR  *=3  TO  J9  STEP  4 
34ø  PRINT  AT  a ,  2 ;  PAPER  7;  INK  ø;y»;AT 
a ,23  ;  PAPER  7;  INK  ø;y$ 

350  NEXT  a 

350  FOR  4=4  TO  20  STEP  4 
370  PRINT  AT  a,2;  PAPER  ?\  INK  ø;z$;AT 
4,23;  PAPER  7;  INK  ø;z$ 

380  NEXT  & 

494  REH  tftttftttttfattflfltftttftttftffltftftttttffl 

495  REM  Oar  i  ab  ler 

496  REN  tftftftftftftfttMHtftttttttftfHtftftftttttf 
500  LET  Mnje-3:  LET  sum=0 

510  LET  t  r  ekk  =0  -  LET  ess=ø 
520  LET  red-ø 
530  LET  a»-"“Es  s " 

540  LET  b »-"Konge1’ 

550  LET  c  $  =  cr0amie  " 

560  LET  d  $=':  Knek  t " 

994  REN  tftftffltftf  tftftttftttftftftftftftftftftftf  tf 

995  REN  Trekk  el  kort  (H 

996  REN  tfua asaatf tftttftftttttfntftttttftfflrt 
]Øøø  LET  4  =  2 * J m T  CRNP*l3l" 

1  010  ^ 

1020  IF  a=14  THEN  PRINT  AT  Unjet3;  PAP 
ER  7\  i  NK  2  ;a$  '  lET  ess-e$s-rl  -  LET  £gm=$ 
umi- 1  4 

1030  IF  4=13  THEN  PR  J  NT  AT  linje, 3;  PAP 

ER  7;  INK  2;d3:  lET  sum-sumtl3 

3ø4ø  JF  4  =  12  THEN  PRINT  AT  linje, 3;  PAP 

ER  7;  INK  2;c$:  lET  sum=sumtJ2 

I 050  IF  4-1J  Then  PRINT  AT  linje, 3;  PAP 

ER  7  \  [  NK  2ja$:  lET  sum-sumtj  | 

3  060  IF  4<»JØ  TPIEN  PRINT  AT  linje,  3;  PA 

PER  7  i  INK  2|a-  i_ET  sum~sumta 

1 070  LET  trekk=trekktl 

1494  REN  tf  tftftftftttttttttffltfttlittttflJltftttttttt 

1435  REN  Innsats  rutine 

1436  REN  tftftftftftftfHtfaHtftftftftftfMtftftftftf 

1500  PRINT  AT  6,10;Du  har”;AT  7,jø;oeng 

srj'S11 

1510  IF  penger THEN  GO  TO  90øø 
1520  JNPUT  mye  satser  du  ?  ";,nnsa 

t  s 

1530  JF  i  nn  s  al  s > penger  THEN  GO  TO  1520 
1540  PRINT  AT  ]ø,]ø;"Du  satser"  i  AT  11,10 
Lnnsats  ;  $ " 

1994  REN  tftftftftftftftftf  tftftftftftftftf  fltftftftf  tf 
1395  PEN  Trekk  et  kort  £2) 

1996  REN  att  tftfBHHtttf  Htttftftftttftf  «tftftf«tf 


2030  IF  4=14  THEN  PRINT  AT  iinje,3;  PAP 
ER  71  INK  2]a$:  lET  ess=ess+l:  lET  sum  =  s 
jmt  J  4 

2040  IF  4=13  THEN  PRINT  AT  Unje#3;  PAP 

ER  7\  INK  2  ; b *  ;  lET  sum=s unit  ]  3 

2050  IF  a  =  l2  THEN  PRINT  AT  Unje,3;  PAP 

ER  7  i  INK  2;tJ  :  lET  sum=sum+12 

2060  IF  a=U  THEN  PRINT  Al  linje,  3;  PAP 

ER  7;  INK  2jd$:  lET  sum=sum+ll 

2070  JF  4<=10  THEN  PRINT  AT  linje, 3;  PA 

PER  7;  INK  2  |  a  ■  lET  £Lim=sum  +  4 

2080  LET  t  t  ekk  =1  r  e  k  k  +■  J 

2030  IF  sum>2l  AND  e.££>rea  THEN  LET  sum 
-s  uro-  13  ■  LET  red=red-rJ 

2100  IF  lrekk=5  AND  £um<=2l  THEN  LET  su 

m=2l  :  GO  TØ  3000 

2110  IF  s  um=2 1  THEN  GO  TO  3300 

2120  IF  s ijm) 7. 1  THEN  GO  TØ  4øøø 

2494  REn  ttna  a  a  tftf  a  tftf*;  a  aatftf  tttfatitf  ntf 

2495  REM  El  kort  til? 

2436  REM  il  tttftftftfJltttttttttttftftftf  tftttftf  tf  tftf 
2500  PRINT  AT  21,0;  PAPER  5;  INK  Øj,ÉUil 
du  ha  et  kort  til  ? 

2510  PAUSE  0 

2520  JF  I NKETS  J  "  ■  OR  1  NKET»-= "  j  "  THEN  G 
0  TO  2000 

2530  PRINT  AT  21,0;' 

1 1 

2994  REM  tttttfttlirttfttttttttttttlltttttftftttttttftf 
2335  REM  Banken£  kort 
2936  REM 

3000  LET  E  i n  j e b  =  3  i  LET  sumb=0 

3010  LET  t  r  e  k  k  b  =0  -  LET  essb=ø 

3ø2ø  LET  r  e  db  =0 

3030  LET  b -2  + 1  NT  [RNO*]33 

3040: 

3050  IF  b  =  1 4  THEN  PRINT  AT  tinjeb,24;  P 
APER  7;  INK  llaS:  lET  e&sb^essb+i:  lET  s 
umb  =sumb  + 1 4 

3060  JF  b ™  1 3  THEN  PRINT  AT  Mnjeb,24;  P 

APER  7 1  INK  LET  sumb  =sunnb  +  1  3 

3070  JF  b  =  l2  THEN  PRINT  AT  Mnjeb,24;  P 

APER  7;  INK  ljc»;  l£T  sumb=sumb+32 

3080  IF  b= 1 1  THEN  PRINT  AT  iinjeb,24|  P 

APER  7i  INK  ];d«:  LET  $umb=$umb+Jl 

3030  IF  b  <  =  1 0  THEN  PRINT  AT  Unjeb,24; 

PAPER  7;  INK  1  ;b :  LET  s umb =s umb *b 

3100  LET  trekkb=trekkbi-l 

3]]ø  LET  I  i  n jeb  “  l  i  n jeb  +  4 

3.120  IF  sumb>2j  AND  e££b>redb  THEN  LET 

su  mb -su mb -13:  LET  r  edb-r  edb  r ] 

3130  IF  s umb  =  2 1  THEN  GO  TO  6000 
3140  IF  trekkb=5  AND  £umb<=2j  THEN  LET 


3160  IF  s  umb  >  =  1 6  AND  £urob<=2j  THEN  GO  T 
0  3190 

3170  IF  s umb> 2 1  THEN  GO  TO  Søøø 
3180  iF  s umb  <su m  THEN  GO  TO  3030 
3.190  IF  sumb>  =  sum  THEN  GO  TO  6000 
3200  IF  £umb  <$u m  THEN  GO  TO  5000 
3394  REN  tt tf  tftftftf  tf  a  tttf  a  tfatttttf  tfa  tf  #titf :: 

3995  REN  Du  f  ikk  (or  mye 

3336  REM  tf  tf  tftftf  tt  tf  tttttf  a 

4000  PRINT  AT  21 ,0i“ 

‘■fe 

4010  print  AT  21,  ø;  PAPER  1;  INK  ?rBekt 
ager, du  f;kk  " jsum-2 1  5 "  for  mye  , 

4020  LET  penger =p enge r-inns ais 
4030  PAUSE  løø 
4040  GO  TO  7000 

4994  REM  tftfatftftftftftf tftftf tttfBtftftftftftttftf 
4  995  REM  Du  u1  i  nner 
4396  REN  tftf tftttttftftftf tttftftttttttttttf tttttttttt 
5øøø  PRINT  AT  21,0}-’ 

1 1 

5ølø  PRINT  AT  21,0  1  PAPER  7  i  INK  2;  "Du  y 
.nner  med  "  i  su  m 

5020  IF  £um=2 1  THEN  PRINT  AT  21,14;  PAP 
ER  7  i  INK  2;  FLASH  1  ;  ’2J  1 :  FOR  a-ø  TO  3ø 
STEP  3:  BEEP  .05,*:  NEXT  4 
5030  LET  penger  ^penger-rinnsats 
5040  PAUSE  100 
5050  GO  TØ  7000 

5394  REN  tttf tttttftftftf tf tttf tf Htttttf tttf« tf # tfft 
5335  REM  Banken  uinner 
5996  REM  tftftf  tftttfiia  a  tf  aatttttf  tf  tftftf  tf  tt  tttf 
6000  PRINT  AT  2l,ø; 

■il 

6010  PRINT  AT  2J,ø;  PAPER  7;  INK  1 ;  Sank 
en  ulnner  med  "  i  s  urob 

6020  IF  $ umb -21  THEN  PRINT  AT  2  j  ^ IB;  PA 
PER  7  i  INK  1;  FLASH  IT  21"  :  PQR  a  =  0  TO  3 
0  STEP  3:  BEEP  .05,a:  N£XT  a 
6030  LET  penge r-penger-innsats 
6040  PAUSE  100 

6994  REM  tf  tf tf  tf  tf  tf tf  tf tf  tf  tf tf « tf  tf a tf  tf tf  tf  tf  tf  tf 

6935  REM  En  runde  til  ? 

6936  REM  tf  tf  tf  m  tf  tf  tf  tf  tf  tf  tf  a  tf  tf  tf  tf  tf  tf  BHHtftt 
7000  CL S 

7010  PRINT  AT  10,5,  "En  runde  tit  ?  Cj^nj 

1 1  1 

7020  PAUSE  0 

7030  IF  I NKET "  J  "  OR  ]NKET»  =  "  j"  ThEN  C 
cS  :  GO  TO  230 
?ø4ø  GO  TO  8000 

7394  REM  tftftttfuautftfiitftftftftftftftftftftftftf 

7395  REM  Starte  paa  nytl  ? 


20001  Lt,T 
2010  LET 
2020: 


L  tnje  =  l  injei-4 
a - 2  + I N  T  ( RNQ* 1 3  I 


£  umb -2 1 
3150  IF 
TO  6000 


GO  TO  6000 
s  umb  >  =s  um  AND 


s umb <=21  THEN  GO 


79  *6  REM  tftfuHUfltftftftftttftftftftftftftftfHtftf 
8000  CL S 

8010  PRINT  AT  10,1,  O;  l  dn  ri  ar  te  paa  ny 
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5  PR  I NT " M  VELKOMMEN  TIL  JOE  1  S  CASINO 
10  FRINTMLT 

EO  P0KE53E80.0;  P0KE53281  ,0:  PRINTE" 

30  C  -2Q0 i 0M=0 


.« .*  !■  .■  f  >  >  ftudk?  r  i- J  -  :>  .■  F*-.*  .J  ■:* ;■  .*>-1  bo  p  J  »k 

wi/v  f.:~  ij.  r  v.  ij  v  v  ■■  .■  ir.*.'  .j  .■  /  r.*.  ? ^  r 


s.  -i«!;?. ji ?.  i: 

Éifi  airriS 

•  .*  T~f  • .  \  1 

1  MMl  "  Mil1  1  I  I<1  1 

1 

J 

DU  SKAL  NU  SPILLE  ROULETTE 


HhHhiWii® 


COPYRIGHT 


BCSOFT 


M  IH-  M 


TAST  DIT  NAVN  ”;N£ 


40  PRINT" 

45  PRINT^ajfl^  mu 

50  P  R  I  NT "  VELKOMMEN  TIL  JOE1  S  CHS  I  NO  mn 

SO  PR  INT  11  ’SEKKM  m* 

70  PRINT" _ 

30  PR  I  NT  *33231  W 

30  PRINT"SEEa^  DU  SK  RL  NU  SPILLE  ROULETTE  I" 

ion  ppiNT"aaaasi  w 

110  PRINT* 

120  pr  iNT,f“Eaaa^  m,f 

130  PRlNTBami  COPYRIGHT  :  BCSOFT  Bu 

140  PRINT” 

145  PRINT 

150  !NPUT*lKEÉMMæEH  TAST  DIT  NAVN  “;N£ 

160  PR INT" J" 

185  PR  INT'  «!!SBaaGAMBLER-”;N S”  VI  ER  GLADE  FOR  AT  OU" 
170  PRINT'  I5KPE30GER  VORES  OHHH  ,  LILLE  CASINCL” 

ISO  PRINT  isICæEEaaæEKH  HILSEN  JOE  THE  CAS.” 

£20  FOR  P-l  TO  7500SNEXT 
£30  PR  I  NT  ”  |J" 

£40  PR INT"  ^a^RED IT  =  ”;C 

£50  pr  i nt  '* =” ;qm+1 

£51  0M*0M+ 1 

£54  PR  INT”3flaSÉEEEE3  r— - ” 

255  PRINT”  t  PLADEN l ” 

£80  PRINT11  3  *” 

£70  PRINT”  3  ■  aB  3  1  U  W  0 

£80  PRINT”  amiamsam^am^a 

£30  print”  am  am  am  am  a 

300  PRINT”  a  ■" 

310  print*  am  am  am  am  a 

3£o  print”  a  m  s  arne  am?  aas  a 

330  print*  am  am  am  am  a 

340  PRINT”  a  *” 

350  PRINT!  INPUT H«WGOR  DIN  INDSATS  MIN.  10  KR.”;  IN 
359  IF  C >“500000  THEN  15000 
380  IF  1N< 10  THEN  lOOOO 
370  IF  I N >C  THEN  10100 

380  INPUT*aS=AA  HVILKET  NUMMER  <  1~S>  ”  1  NR 

330  IF  NR  >8  DR  NR<  I  THEN  10200 
400  TF=INTCRND<  1 )*3>+I 

410  PRINT  "*fliDET  BLEV  NUMMER  :  M  ;  TF 

415  FOR  P=1  TO  1000 : NEXT 
420  IF  TF  =NR  THEN  10300 
430  IF  TF< >NR  THEN  10400 


■  Med  din  Commodore  64 
besøger  du  her  Joe  s  Casino, 
Du  får  slukket  en  sum  penge 
ud,  som  du  meget  gerne  skul¬ 
le  torøge.  Spræng  banken  el¬ 
ler  bankerotten  er  sikker!  Cl 
Morten  Biunnstrøm 


COMMO 

DOfff 

64 


\  PLADEN  i ” 


a  m 


a  m 


a  m 

a  m 

a  m 

^■1 

a  m 


a  m 
a  m 


a  ■ 

a  ■■ 

a  w 


a  »M 
a  i" 


S? 


ISC-s 


360 

370 

380 

330 


M;  TF 


420 

430 


10000  PRINT" 


“  u  O  ti  O.  I  j  Q  u 


LIDER  VIST  AF  STORHEDSVANVID’ 


IN  NAERIGE  GED!  DU  HAR  SATSET  FOR  LAVT. 
10010  FOR  P=1  TO  3000 : NEXT: GOTO  230 
10IQ0  PRINT"; 

10110  PR  I NT "JflSAA  MANGE  PENGE  HAR  DU  IKKE  * " 

10  120  FOR  P  =  1  TO  4000! NEXT : GOTO  230 

10200  PRINT "  u  JWraMBMIMME  R  DU  BLIND,  ELLER  BARE  ALMINDL  IG  DUM’!" 
10210  PR  I  NT  "HUMMERET  FINDES  SLET  IKKE  FRA  PLADEN!” 

10230  FOR  P-l  TO  4000 : NEXT : GOTO  380 

10300  PR INT " LMHURRAAftfiAA .  DU  HAR  VUNDET  ”;IN*10" 

10310  PR  I NT "NU  HAR  DU * ;  I N* 1 0 +C "KR .  " 

10313  C=  I N* 1 0  +C 

ID315  FOR  P= 1  TO  5000 t NEXT = GOTO  £30 

10400  PR  1  NT  "LJBHA  HA  HA  HA  HA  HA.  DU  TABTE ” ; I N "KR . " 

104  10  PR  I  NT 11 MPRO  V  LYKKEN  IGEN  GAMBLER’  "  ;  N# 

104  15  C =C- I N 

10417  IF  C< 10  THEN  10500 

10420  FOR  P*1  TO  4000 : NEXT : GOTO  £30 

10500  PRINT  "LiHHMHSEEU  HAR  VIST  IKKE  HELD  I  SPRØJTEN  VAR?" 
10510  PR  INT”  JE33P  ILLET  ER  SLUT  *  H  !  !  M  !  !  !  H  M  !  M  !  !  !  !  !  ” 

10520  I  NPUT 11 U3V  I L  DU  PROVE  IGEN  (J/N)  "  ;  AS 

10530  IF  A$*""  THEN  10530 
10540  IFA$=”J"  THEN  5 
10560  IF  A^=teN"THEN  END 

15000  PR  I  NT  "  kJHMHBEflH  Y  Y  YYYYY  YL  DU  HAR  VUNDET  ALLE  PENGENE” 
15010  PRINT 'SE3S0M  JOE  'S  CASINO  EJEDE." 

15015  PR  I  NT  "  Ht3E  P  I L LE T  ER  SLUT!!!!" 

1 5020  FOR  P=1  TO  5000JEN0 


SS 


J  Jv 

Q  /'\ 


m 

% 
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AMSTRAD 


1©  REM  ************* 

2©  REM  *  id  * 

3©  REM  ************ 

4®  REM  *  jf  t 

50  REM  *  M ,8*J  t 

6ø  REM  * ****** ******  ( 

70  GOSUB  1370 

00  INK  0,0  INK  ] ,23* INK  2,£:INK  3,24'INK  4,0,10! [MK  3,21  MODE  O  ] 

30  t?m  no<23>jW<Z5>,M<25>,u*t25>jR<25) 

100  SC-ø'T-øPO-58  < 

110  SYMBOL  ØF TER  90 

120  SYMBOL  90,0,0,0,0,0,0,0.0  C 

130  SYMBOL  91,3,5.74,52,56/120,100,0 

14ø  SYMBOL  92,6/13/28.244,144,144,240  ( 

130  SYMBOL  93,60.66,90,90,30,66,60,0 

160  SYMBOL  34,24  36.219, 126,219,24.36  I 

170  SYMBOL  35,60.  116,  127/100,  112/124,24 ,63 

100  FØlR  4-1  TO  23 

190  READ  rtQ/4  ),«Y4  >.urtf4  > 

200  NEXT 
210  4=1 

220  dMNT  <PND<  I  3*15  >+H 

230  sl*!NT  f  RMQ<  2  J*25  >+ 1 

240  JF  *l<2©  THEN  i2»»i+5  ELSE  »2-1-5 

250  n2-IHTfftHD<3>*lø)4l6 

260  w3-tv2-1ø 

270  n- [MTC RND(  4  >*23 )*1 

£Sø  IF  il-n3  OP  *2-r>3  OR  n2-*l  OR  *3-*2  ØJ?  il-d  OR  *2»d  OR  r,3“d  OR  n2-d  THEN  GOT 
O  230 
290  9-1 
300  CCS 

310  IF  O-t  FINO  KE-2  FlNO  DM-I  THEN  132© 

320  PLOT  ø,©  ORRU  600,0  DRAld  600 , 300 1 DRAM  0.3øø:øRflfcJ  0.0 

330  PLOT  ø,30ø  DRAW  70,230  DRAM  78/200: FLOT  70.230  DRAM  250.230 

340  PLOT  0,0-DPRN  70,70  DRAM  250/ TB  PLOT  7*1,70  DRAW  70.100 

350  PLOT  600, 8 'DRAM  530,70  DRAM  35©/ 7©  PLOT  530,70  DRAM  530,100 

360  PLOT  608/300  ØRFiH  530,230 -D-fl Au  350,230  PLOT  533  238  ORflU  530,288 

378  IF  nø(fi»ø  THEN  C05U&  69ø  £L$E  PLOT  230,23©  DRflW  350.230 

300  ff  5H(9»0  THf N  GOSUS  720  ELSE  PLOT  230.70  DPRW  358/7© 

330  TF  «<<D>0  TH£M  GOSUB  740  ELSE  PLOT  70. 100  DRAM  70,200 

4øø  I F  w*C9»ø  THEN  GOSUB  760  ELSE  PLOT  330.230'DRflW  530,70 

410  INGEN  TING"PO-FO-l’SC-SC+LBø 

420  IF  4-d  THEN  s*-" DI Fl  MANT  EN «* " ■ t*3 

43ø  IF  q=n3  OR  4-n2  THEH  *»-"EH  NØGLE  '■  * '  t-2 

440  IF  4«*1  OR  <*-»2  THEN  i*»,rET  SVERR J  f Hr :  t*  3 

450  IF  q-n  OR  2>0  TWEN  GOSUB  1030 

460  LOCATE  1,1  PEN  3j  PRIMT"JEG  SEP  ■-"jS* 

470  A-lø  6-16 

4Sø  IF  q-n  OR  z>B  TH£N  LOCRTE  5, I6PEH  7  PRINT  CHR*^95). 

490  IF  iV-2  THEN  LOCATE  1,6- PRINT  4IEC“  ELSE  IF  iv-1  THEN  LOCATE  l/6:pRINT  "E“ 

500  IF  k*-I  TNEN  LOCATE  4, 6  PPI. NT  "n"  ELSE  IF  *e=2  THEN  LOCfiTE  4.6  FRINT'W' 

510  IF  drn“t  THEN  LOCfiTE  #,  6 1  PEN  4:  PRINT"  3" 

520  IF  P0<5  THEN  LOCRTE  3, 3 'PEN  4 ' PR I NT " EME RG I  LAV" 

530  IF  t-3  THEN  PEN  4  ELSE  PEN  3 
540  LOCfiTE  12/14  PRINT  CHR«  9©+t  >> 

550  LOCRTE  R,BPEN  5  PRINT  CHR*(94>J 
360  IF  JOY(0)-0  TNEN  530 
570  LOCfiTE  FT/S  PRINT  “ 

560  IF  Pøti  THEN  1270 

590  fl-fl-c  J0Y<0)»3  AND  B<1EH<J0Y<  0>"4  AND  fi>4> 

6©0  G*B-(  JOY<  ø  )-2  RND  B<3ø>+(  JOY<øJ-l  AND  8>12> 

610  IF  *-32  FIND  b" ! 4  THEN  GOSUB  1210 
620  IF  *-5  RND  tj»l€  AND  <9-M  OR  l>B  >  THEN  1090 
630  IF  fl— 4  AND  es<4»0  THEN  <?■*»<  9  >:  GUTO  388 
640  IF  A-16  fiND  «*<9)>ø  THEN  9-u*<qVG0TC  300 
65ø  IF  b-12  AND  no<q)>ø  TNEN  q -ne< q > ' GOTO  308 
660  t-ø 

670  IF  B-20  fiND  *M<q»0  TNEN  9-1)1  <  q  >  ■  GOTO  3©8 
6fiø  GOTO  550 

63ø  PLOT  250,230  DRRU  250, 280 : PLOT  250.230  DPflW  220, 2©8 
70ø  PLOT  220,200: DRAU  300,280: DRAM  338 , 230 ' DRAU  330,280 
71P  RETURN 

72ø  PLOT  250 , 70  : DRAM  220,20  DRHW  300,20 :  DRfiH  350,70  DRfiH  350,20  PLOT  250,  7* : C'RHW 
250,20 
730  RETURN 

740  PLOT  70, løø  DRAM  2B,7ø  DRflW  20,230  DPRN  78,208  OPfiW  20,200  PLOT  70, 3  øø  DRAW 
20/ 100 
750  RETURN 

768  PLOT  530,200  DRRU  50ø . 230 : DRfiU  5S0.7ø  DRflW  530, 1DØ : DRAW  5S8, 10ø! PLOT  530,200 

i DRRW  530.200 

770  RETURN 

760  DATA  0/6, 0,2 

790  DfiTfi  0/0, 1/3 

800  DfiTfi  0/0,2, 4 

Bie  DfiTfi  5,0, 3, 5 
020  DfiTfi  8, 0,4,8 
330  DfiTfi  1,11.0/0 
S4ø  DfiTfi  0,0,0, S 
S50  ØRTfi  0,13/7,9 
860  DfiTfi  0/3/8,  10 
378  DfiTfi  0,15,9,0 
338  DRTfr  6,0,©,  12 
390  DfiTfi  0,17,11.0 
900  DfiTfi  8,13,0.14 
913  DATA  ø,0, 13,15 
920  DATA  Iø.2ø,l4.0 
900  DATA  ø,21/Ø.I7 
940  DATA  12,0,16/8 
950  DfiTfi  13/0.0. 19 
960  DfiTfi  0-0.32,0 
970  DfiTfi  15/23/0/0 
980  DfiTfi  16/0/0,9 
990  DfiTfi  9/0/8,23 
3000  DfiTfi  0.0,22  24 
!03ø  DfiTfi  0.0.23,25 

1020  DfiTfi  20.0.24,0 

3030  2=2+1  IF  z=4  I HEN  1090 

I040  IF  sv  O  THEN  s*=J,ÉN  81  AGTET  OP  I  ,,H  z=B  M  *  I  NT<  RND*23  H I  $Y=$V-1  SC-SC+308  PO 
irj0-5 

1050  IF  l-l  THEN  *»-,pEN  ORK  !  !  !  HJEflLP  ‘  " 

1060  IF  1-2  THEN  *»-"OfiKEH  ICEHji" 

1 070  IF  1-3  THEN  ii»r,SfiA  GØR  DOG  NOGET!  p 


■  I  dette  spil  gælder  det  om 
at  linde  den  lantastiske  dia¬ 
mant,  der  ifølge  sagnene  lig¬ 
ger  nede  under  byen  Pd 
grund  af  giftige  dampe  har 
du  en  robot/  som  du  skal 
tjernstyre  rundt  i  gangen  med 


joysticket 

Undervejs  i  jagten  risikerer  du 
at  støde  på  et  uhyre.  Oveni, 
det  hele  har  robotten  selvføl¬ 
gelig  kun  begrænset  strøm!  □ 
Mikkel  Birkegaard.  Jensen 


1060  IF  1-2  THEN  *t-"QfiKEH  ECEHJI" 

1070  IF  1-3  THEN  £ft»"Sfifi  GØR  DOG  NOGET ! “ 

1 030  RETURN 
1090  CL S 
1100  PEN  6 

1110  IF  *v >0  THEN  300 

1120  L OGATE  4,5  PR É NT'rfifiRNGGG* .  . DEN  KORT-" 
H30  LOCfiTE  4,7  PRINT  “SLUTTEDE  MIT" 

1140  LOCfiTE  4,9  PR  I  NT "KREDSLØB. .. " 

1 L50  LOCfiTE  0, 11  PRINT' JEG  ER  "  PEN  4  PRIM 
1160  LOCATE  3,  IS  PRINT  "SCORE  =*',8C 
1170  PEN  2 

1!S©  LOCfiTE  7/25  PPI  N T'^ SPACE  >rt 
119©  UHILt  1W(£Y<  47500  HEND 


PRINT  TflØf  5  >i  "FfiERDIG, .  .  - 


I 


^  II 

l  m 


1200  RUN 

1210  IF  q-d  THEN  (fc-l'd-0  t-0 ; SC-SC+i 000  LOCRTE  6,6  PEN  4  PPINT"3" 
1220  IF  q-*l  THEW  iv-sv+l  *1-0  t-ø  SC-SC+100  LOCRTE  3/6  PR  [MT"' C1 

123©  IF  q-*2  THEN  *v-*v+ 1  ■  *2-0  =  +,-©  SC-SG+Iø©  LOCRTE  3/6  PRINT"C'' 

1240  IF  q-m2  THEN  k#-k  *+l  ^2-0  ■  t^Ø  SC-8C+100  LOCFITE  5/6  PRINTE" 

1250  IF  q-n3  THEN  k ?-k *+l = ^3-0 : t-©  SC-SC+200  LOCRTE  5>6  PRINT" 

1260  RETURN 

1270  CLS'PEN  4 'LOCRTE  1,1©  PRINT" IKKE  MERE  STRØ* . , " 

12BØ  LOCfiTE  3,14  PEN  5  PPI NT “SCORE  -“;SC 
1290  LOCfiTE  7 ■ 23 : PRINT "<$PACE>" 

1300  UKILE  1NKEY<47X>0  UEND 
1310  RUN 

1320  CLS  SC-SC+  30000*PO  PEN  4  PPlNT"RøDO-l  ER  UDE  1 1 !  "p 
1338  PEN  1  LOCfiTE  1,1©  PRINT  Tfi©< 5)i "SCORE  -M,SC 
1348  LOCRTE  7,23  PPINT'p<SPACE>'' 

1358  WHILE  INKFYC47 X >0  NEND 
1360  RUN 
1370  MODE  1 

1388  INK  0,27  BORDER  &■ INK  1,15  INK  2,8,6 

139©  LOCfiTE  15,5: PEN  l  PRIHT  "3D 

E4©0  LOCATE  5.7  PR INTHET  GAMMELT  SAGN  SJCER*- 

1410  LOCRTE  5>9  PR [MThRT  I  KfiTfiKOMSERNE  UNDER  DIN  8V' 

1*20  LOCRTE  5, 1 1  ■  PR  I N  T' 'LIGGER  EN  STOR  UWDERLIG71 
143ø  LOCfiTE  15, 13 : PR I NT “DIAMANT " 

1440  LOCATE  5 , 15 : PR I NT" MEN  1  KATAKOMBERNE  £R  EN  “ 

1458  LOCfiTE  5/17  PRINT"GASART  DER  NRESTEN  AETSER" 

1460  LOCfiTE  5,  19 :  PPI  NT,rALT .  DERFOR  HfiR  DU“ 

1470  LOCRTE  5 , 21 :  PR1  HT"CRVFT  ÉN  ROBOT  r  ftOBO-1  i  SOM1' 

1483  LOCRTE  5,23  PRINT“SKfiL  GØRE  ARBEJDET  FOR  DIG.1' 

149©  LOCRTE  3,25  PR1NT"HQBQ-1  HAR  MEGET  BEGR RENSET  STRØM“ 

1508  HNILE  INKEY*-“ " ■ UEND 
151©  CLS 

1528  LOCATE  5/1  PRINT“SAA  DERFOR  NAR  DU  VRERE  HURTIG1' 

1530  LOCATE  5 . 3 • PRINT“OM  fiT  DIRIGERE  HAM  RUNDT*  * 

154©  LOCRTE  5,5  PRINT  "UNDERVEJS  FORDELLER  ROBO-i" 

1330  LOCfiTE  3 , 7 :  PR  I  HT '‘HVAD  HAN  SER.  HAAR  HflN  HAR" 

1560  LOCRTE  3/ 9  PRINT "FUNDET  DI AM, OG  TO  NØGLER  SKAL" 

157©  LOCRTE  3 , 1 1 : PRlNTHDU  HURTIGT  f©R£  HAM  TIL" 

1500  LOCATE  5,13  PR  I  NT ''UDGANGSPUNKTET,  EN  PUDEN  TING" 

1590  LOCATE  3, 1 5 ' PRJNT“SKRL  DU  Y I DE  I  LflBYH INDEN  GARR" 

1608  LOCATE  3,17  PR  I NT “EN  ORK  RUNDT  DER  SYNES “ 

161©  LOCATE  5,19  PRINT“PT  TRIVES  MED  GASSEN.  DEN  ER1' 

1620  LOCATE  13/21  PEN  2 ; PRINT "FfiPL 1G" 

163©  LOCfiTE  6,24  PEN  1  PRINT’'TAST  < SPACE >  FOR  SPIL1' 

1640AJH1LE  IMÆY< 4 7 X >©  UEND 
1650  RETURN 
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1  REN  UED  1  BREAK  *  BRUG  ’GOTO  201 

2  POKE  23658,8:  BORDER  7:  INK  0  i  ^APE 
R  7:  FLASH  0:  BRJGHT  0:  ODER  0:  INUERSE 
0 

1 1  GO  SUB  9030 

20  CL S  :  PRINT  "SPIL  SCORE 

NAUN" 

30  PRINT  i: - - - 

_ _  I  • 

39  LET  H-65 

40  FOR  Y - 1  TO  SPIL 

50  PRINT  CHR£  g;,,1 '*  ;S*CY3  i”  ';R*tY}iN$ 
r  Y3 

55  LET  2=1*1 
60  ISEXT  Y 

70  PRJNT  " - - - - - 


Guinness 


80  PRINT  «1;AT  1,0  i "HAR  DU  SLaET  REKOR 
DEN  Pa  ET  AF  DISSE  SPIL  "i  FLASH 
FLASH  Øp 

90  PAUSE  0  -  P  NKEY$-" "  THEN  GO  TO  9 


100  JF  JNKEY*  H  THEN  GO  TO  3000 
310  IF  INKEY*  N"  THEN  GO  TO  2000 
320  GO  TO  90 

3000  POKE  23617,230:  INPUT  "HUILKE T  SPIL 
"i  FLASH  1  i "?"  i  rLASH  øl"  (  TAST-  BOGSTAU 
i*  ;X 

1010  j NPUT  '  11  SCORE  iJ  ;  LINE  8$ 

1011  IF  8$=""  THEN  GO  TO  1030 
1020  IF  LEN  B$>?  THEN  GO  TO  1010 
1030  LET  RÆ ( X 

1040  INPUT  11  HU  AD  ER  DIT  NAUN  11  ;  LINE  C* 

3  045  IF  C$  =  ,h"  THEN  GO  TO  1040 
1050  IF  LEN  C$>  1  ø  THEN  GO  TO  3040 
1060  LET  N*tXJ=Cf 
3070  GO  TO  20 

2000  PRINT  #3  ;AT  l,ø;"UIL  DU  SAUE  DISSE 
DATA  Pa  BflND  flash  ]  i"?1'  ;  FLASH  0;"U 
/NJ 

2010  PAUSE  0:  IF  INKE Yf""1 "  THEN  GO  TØ  2 
010 

2020  IF  I NK£Y$= " J M  THEN  GO  TO  3000 
2030  IF  I NKE Y$~" N"  THEN  GO  TO  4000 
2040  GO  TO  2010 

3000  CLS  :  PRINT  AT  9, 6  i "SPOL  BaNDET  T  IL 


GO  TO  3000 
GO  TO  2000 


LINE  C$ 


GO  TØ 


GO  TO  3000 
GO  TO  4000 


3000  CLS 
BAGE 


OG  TRYK  Pa  EN  TAST. " 


3010  PAUSE  0:  SAUE  "REKORDER"  LINE  I 
3020  CLS  i  PRINT  AT  9, 2;  "SPOL  BaNDET  TIL 
BAGE  OG  TRYK  Pa  ’ PLAT*  Pa  BaNDØPTAGE 

REN.  H1 

3030  UERIFY  ‘'REKORDER" 

3ø4ø  GO  TO  2ø 

4000  PAUSE  ø:  PRINT  #  1  ;AT  ],0ial 

TAST  'S5  FOR  AT  S 

TOPPE " 

4010  IF  I NKEY$-" "  THEN  GO  TO  4ølø 
4020  IF  ]NKEY$="S"  THEN  STOP 
4030  GO  TO  4010 

9øøØ  LET  SP I L ~ 1  I  s  POKE  23637,236;  Din  £$ 
r SPIL,  3  23:  Din  R$ C  SPIL, 73  =  Did  NS C  SPIL,  I 
03 

9005  FOR  Y= 1  TO  SPIL 

9010  JNPUT  "SPILLETS  NAUN  Mj  L I NE  A$ 

9011  IF  A$=" "  THEN  GO  TO  9010 
9032  IF  LEN  A®>  1 2  THEN  GO  TO  BØJØ 
9020  LET  S*CYJ=A* 

9030  INPUT  "SCORE  "3  lINE  B$ 

9031  JF  B*  =  ,f"  THEN  GD  TO  9030 

9032  IF  LEN  B$> 7  THEN  GO  TO  9030 
9040  LET  R$LTJ~B$ 

9050  INPUT  "SPILLERENS  NAUN  "i  LINE  C$ 
9053  IF  C*=,,lp  THEN  GO  TO  9050 
9052  IF  LEN  C$> I ø  THEN  GO  TO  9050 
9060  LET  N$ C Y 3 -C$ 

9070  NEXT  Y 

9ø8ø  LET  A=1  :  LET  B=2:  LET  C=3  :  LET  D  =  4  : 
lET  E-5 :  LET  F=6  :  LET  G=7 :  LET  H-B :  lET 


lET  E-5 ;  LET  F=6 ;  lET  G=7 :  LET  H-B ;  lET 
I  =9  :  LET  J-10:  LET  K=  11-  LET  L-12=  lET 
<1=13 s  LET  N=34:  LET  0=15:  l£ T  P=16:  lET 
Q=1 7 

9085  GO  TO  20 

9090  FOR  Y=USR  "A"  TO  USR  l,A‘'+7:  READ  S ; 

POKE  Y , G :  NEXT  Y:  RETURN 
9095  DATA  24,0,60,66,126,66,66,0 


■  Er  du  bedre  end  din  far  til  at 
spille  PacMan? 

Er  du  bedre  end  din  bror  til  at 
spille  "Space  Invaders"? 

Har  du  sidet  din  vens  rekord  i 
"Jet  Set  Willy"? 

Med  programmet  "Rekon 
der  kan  du  hurtigt  finde  ud 
af,  hvem  der  er  ndet  længst  i 
hobby 'en  og  hvor  langt  han/ 
hun  er  ndetr  og  om  du  er  nået 
længere, 

Når  du  har  tastet  hele  pro¬ 
grammet  ind  i  din  ZX-Speo 


trum  I6K/48K,  skriver  du  "GO¬ 
TO  9000". 

Computeren  spørger  dig  om 
1 1  af  dine  spilleprogrammers 
navne,  om  1 1  "High  Scores" 
og  om  navnene  på  de  1 1  spil¬ 
lere,  som  har  "Hich  Scores". 

I  linie  9090  og  9095  laver  vi  et 
”Å"  ud  af  grafisk  "AK  Så  du 
skal  huske  at  rette  det  i  linier¬ 
ne  2000,  3000  og  3020, 

Husk  at f  SAVE ' '  hver  gang  du 
ændrer  på  navnene .  □ 

Karsten  Hansen 
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TAØ  tr  d*l  TKV  570  ELSE!  628 

57!  IF  nCN  5Eø  aSE  5« 
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■  Du  bliver  lukkel  inde  i  en  to- 
dimensionel  labyrint  som  du 
så  skal  slippe  ud  af  i  færrest 
mulige  træk. 

Du  vælger  selv  labyrintens 
størrelse,  l.eks.  10x10  felter, 
men  du  kan  få  op  til  50x50 
felter, 

Når  du  er  kommet  ned  i  laby¬ 
rinten,  styrer  du  med  dine  cur- 
sortaster .  Med  space -tangen¬ 
ten  kan  du  kalde  et  billede  af 
labyrinten  frem,  så  du  kan  se, 
hvor  udgangen  er. 

I  øvrigt  får  du  et  tre -dimensio¬ 
nen  billede  af  gangene  når 
du  vandrer  rundt  nede  i  laby¬ 
rinten 

Til  sidst  en  lille  advarsel:  Hvis 
du  vælger  en  labyrint  med  50 
x50  felter,  kommer  du  til  at 
vente  meget  lang  tidmens  la¬ 
byrinten  genereres.D 
— ^  Klaus  Kallesøe 
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Lill  NM  s.B-dfø:  DLBR  i^Ø, trS:  MH  hil, kil:  ppflH  hkl.fc.Ø:  WEN  b*.*,a  ^  ^  -  X  '  flL 

L92t  R£Tj*  JlXV  ^ 

L?AB  [F  imHH  flO  IWLP  ]V  \  A 

1950  i>M ;  T=vi  \  /  V  ' 

:960  G09US  I  EU  J  \ 

l?7*  g røm  23s  l  i.  f\*r  \  X 

LDfl  FDf  ,«l  TU  -*i\  Mt  \  J  \  f  \  .  \\ 

L99S  uMIBLEV*:  IF  iii=“  HEH  LBSØ  ff/KS  r^fTfr  XSti  *V 

„W4  Z)k?k:  M=k:  PHllk(i):  K«!i-CiP3L+<B,4)t  rKr+S^I  )-É^J]  / / //f/77?JjfTI }H^\.  Jill 

»:0  Miifrii  033JØ  KM  i  /' fiNi "*v 

:«t  ieu 

35*  NEST  i  ^**^1  >.  v\ 

2*11  STIN*  \  \  '■\Vv 

L«4  DU  r]„4.z3]|MkM,lir4  5)frtigfl  V  . .  ..  ^-V  ,  -  L 

MHIfl  (0.531^0. 1 

2f7ø  DUX  l-L 2>*inc*, L-I.LSlfvtta  T  T #f  ' 

2360  3PIW  l,'l.5>*fh»,l  jj  X 

2301  DI  2:  ÉCfffiP  5  ti  //  Æf  V'  '  J 

2111  Sf«L  fiFTEfl  *5  1\  i  i  J&S  *  k 

2’2I  æc^v  1.126, 236,  M&,  254,  21 6. 216, 222  ]  )  |®l  i  '  -^'*1 

2;a  STDa  asm '0*1,122.  U2.LJS.1 16- 1£2. 66.  SBS  £72$  tf  : 

23*1  sTrea  (BCi,^,i',».ø]2i.i9e.E*,i96.i9e  '//  -^PltSSL 

2:51  5TDQ.  fl62i"l*  .,  1,0- 136-26, 12L  IlE,  l!0  //  p  ”/ 

2lM  5TDH  FflCC  l"  tt*#.  lift  20*. 21*,  1*2-  221  C 1  V//09  \  *%  ||  j4 

217!  5MEL  (BCE'>">,ae,Ha,l2,ia,3i,llB  T  ||  jy 

2 ;  n  6T«L  FÉC  i  "0'  3. 12* .  LBff-  E3E- 1 98.  IBS.  LØS,  1 24  \ff$k 

219  NEV  IEF  29.1.0SCl*("L,flGEi ’f").  Jj/A 

MM  KV  KF  a.i.Fscri't.cøccj-i  /Vn^r 7 

2211  Ær  T£F  2fclnflSCr>'>,flGC(p+")  f  ' 

22a  ÆY  ief  i%iiKrn.ii&c(*n  tÆr  J 

:-m  key  Kf  !ipii»sci'*t>.«Cf'-,» 

22U  Kr  EF  JJ.  uBCi  Vi^USCr  M*l  /  7T\f  ^>7 

225*  KEt  Kf  Si.l,RØCf,.">,flfitE'ip}  // fVfjL^  1  *|bN 

2261  REV  EF  J24,fl$CiDr>.BSt(-.'>  h / 

OT*  KY  EF  lliMSOCfliMCcri  ^  f 

2J»  ^flC  fl:  IF  IF- 1  GDTfl  23U  ^ 

21:1  3JJ(D  l,fl,S,l5:l»Tll  23M 

232*  TfiT-fl  Biai.’A  119,0,  I®.  LL9,  L®.  130.  LIS,  1  !$.  1 1  $. 0. 1 10.  j«,  LW,fl,  110. 1  fe- S. *,  !2T.  106. ø.  119-1 19-  3 19, 113, 113-211, Æ .19, 119 
.ø.  3L9.0,  l®,  119,  ILD.  115. 119. 119,*.  1*2, 159-ififr,  I«.  111.®.*.;®.  1 19. 142, 3«.  I  ft-  iK.  ,  213.  Sl 

2331  m  IR  :®.  LL1.  B.  I®,  110.0,  I® .  ILS,  3E9. 1 13.  IL9.  k  Lit  306-  ff.  90,  II 3, 306-95,  lU  37.  Lft,  *,  LL9-  3LM34  LL9, 139,0,  113,  i  ft. ‘55.  LI  S.  106. 
95. 1-  L 19,  LIG- 119,  55.  L3  3, '  06, 55.  i.  L  L9, 1K,  119-35-  L  35,  L®.  95-.  t.  L  27.  LB,.  lf  L 19-  ill  1 10,  L 10.  -3 

21*1  ET* 
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1  PGKE  23617, I66J  LET  K- SO i  PuKE  23603,20 


Blindebuk 

VIII  lMw IV VI IV 

11  DIN  « (2, ba) 

12  LET  bb^ba 

20  PRINT  AT  i ,  O  i  INK  2i  "AAAAAPAAnAAAAAAAAAAAAAAAAfiAAAAAA51 

21  FOR  n  =  l  TO  20:  PRINT  AT  n,0i  INK  2U'fVp;AT  n.  31  i  ,rA" 

22  NEXT  f, 

30  PRINT  INK  2 i  " AAAAAAAAflAAAAAAAAftAAAAAAAAAAAAAR " 

40  FOR  n=I  TO  <RND*30>+40 

41  PRINT  AT  (RND*20>+1,  RND*3l  i  INK  2S,|A" 

42  NEXT  r. 

43  PRINT  AT  i,  bi  INK  7 i  "B" 

44  FOR  n=l  TO  ba 

45  LET  q(l,rU  =  lNT  (RND* 1 9>  +1 

46  LET  q  C2*  n )  =  I  NT  CRND*23)+i 

47  PRINT  AT  flQa),  q(2^()  !'r 
43  NEXT  n 

50  PRINT  AT  1,  15?  INVERSE  li  INK  25  11  N  11 5  AT  2l,i5Up  S  44  i  PiT  9,0?"  MI  "V1”  11  "  ii 
9,31!"  11  i  AT  11,31!  "  41  i  AT  10,  31  i  "O11 

100  IF  bb-o  THEN  BEEP  3,3:  CLS  :  PRINT  AT  a,  bl  INK  6!  PAPER  OU'31':  GC  TO  10 


m  s  a  nvm 

m  ^22!  2£  £  ir  f!  f  £  g  y»i 


iit  n  e  j  ii  ,  ii  ii 


102 

IF 

IN  31  = 

32  CR 

IN  31=255 

103 

LET 

al-a 

104 

LET 

bl  =b 

106 

LET 

r  *  IN 

31 

107 

IF 

r=0  THEN  GO 

TO  106 

UO 

IF 

r$~ "  sO 

pp  OR  r 

=10  THEN 

120 

IF 

r%= 14  SV 

i4  THEN 

lET  a-a+ 

130 

IF 

rS=  "nO 

11  THEN 

LET  a=a- 

140 

IF 

r  t  = "  n  v 

"  THEN 

LET  a=a- 

150 

IF 

rt^“n7t 

THEN 

LET  a=a-l 

160 

IF 

then 

LET  a=a+l 

170 

IF 

r$-  14  0  " 

THEN 

LET  b= b+1 

ISO 

IF 

rt- M  v1* 

THEN 

LET  b-b-1 

LET  b=b+l 


184  IF  ATT R  (a,b)=34  THEN  PRINT  AT  al,  bil  r4  "  ' AT  a,  bi  INK  2?  "B"  -■  30  TO  1000 

185  PRINT  AT  al,  bl!  INK  7iPt  41 
190  PRINT  AT  a,  b  i  INK  7!  4,B" 

193  IF  al-a  AND  bl”b  THEN  BEEP  *01,0:  GO  TO  100 

200  FOR  K=1  TO  ba 

20 1  TF  q( 1 , k  j  =0  THEN  NEXT  K :  GC  TO  310 

204  PRINT  AT  q  (i ,  »c)  ,  q  <  2,  K )  5  "  ,p 

205  IF  a>q*l»K)  THEN  LET  d  Cl ,  k  X»q  ii ,  k  3  + 1 

206  IF  a<q<l,K)  THEN  LET  q(l,  K)=q£l.  K)-l 

207  IF  b<q  (2,  k)  THEN  LET  □  C2,  k  j~q  1 2,  k) -1 

20 S  IF  b)ci<2,k>  THEN  LET  q  i  2:  K  )=«  C  2,  k)  +1 

209  IF  q<l,k)=a  AND  q  £2,10=6  THEN  GO  TO  1000 

210  3  F  ATT  R  C q (1 ,  O ,  q (2, k ) } =34  THEN  FOR  n  =  1  TD  10:  BEEP  *1,0:  PRINT  AT  q(UO, 
o  f2,  k)  l  "C"  5  i  BEEF  .1,1:  PRINT  iCHRf,  8  i  INK  2i,pfl"!  NEXT  n=  LET  p=p+10a  PRINT  AT  O 
,  O!  INK  2!  INVERSE  1  i  pi":  Points",  hi 11  :K  i  -Se"  :  LET  bb=bb-l:  LET  q(i,k)=0:  LET  q(2. 


,  Oi  INK  2!  INVERSE  liP’,"iPoints",h!l,iWl-Sc"i  LET  bb=bb-U  LET  q(i,k)=0:  LET  dt2, 

fc)»0 

23E  Ir  q(l,k)O0  THEN  PRINT  AT  q  t  1 ,  k  >  >  c  C  2,  K )  i  pp  C  " 

300  NbX~  k 
9S9  GO  TG  100 

2  000  BEEP  1,-30!  PRINT  PT  1  >  O  i  *  i  M  i  POI  NT ,l 

1010  PRINT  ”  Du  GOEDE !!!!!!!!!  11 

".020  PRINT  h$ ; 4"  nar  re-k orden  med  11  i  h 

1030  I F  h  <  p  THEN  PRINT  41  Du  5i09  rekorden":  INPUT  "Skriv  bit  navn 44  i  h$ :  I  ET  h=ø‘. 
PRINT  BRIGH7  i !  1 JUBI I  1 1 1 1 1 1 " 

1040  PRINT  h$>  "  er  nu  liir^navei-" 

1050  IF  INKEY*="G"  THEN  CLS  :  30  TD  3 

1060  aRlNT  AT  21,  C  i  PAPER  CRND*7U  INK  9  i  l4^RYK  PPA  11  i  INVERSE  O1f01fi  INVERSE  O  i  11 
FCR  AT  STARTE  IGEN" 

L 070  3G  TC  1050 

S 300  PAPER  4 :  BORDER  4  i  INK  O:  INVERSE  0:  CVER  0:  BRIGHT  O:  F^ASH  0:  CLS  :  FOR  n 
-65368  ”0  65393:  READ  ai  POKE  n^a:  NEXT  ri 

9901  DATA  4,  13,  131 , 252, 253,  127, 55,  102, 24, 26, 60,  126,  139, 60, 36,  *02»  IBS,  152,  152, 255 

,  *  4 i  j, ' 4 ,  ■.  ■  o ,  J.  ‘.L,  *  Oi  i  1 i.f ,  6  3 ,  6t?,  66,  >  *  L  O 

L30L  PRIn"  TAB  14  i  FLASH  1 1 ri  ZULU’1' :  FLASH  O*  "I  dette  spi  i  er  du  en  opdaseisijsrejs 
■ende  44 !  INK  7',  M  E,p'  IKK  O  i 14  ira  Danma  r  k,  cie  r  staarmidt  ,  o  et  iiidte  Zimbabwe7  s 
g  raesstepper.  Run^t  om  baa  s  raes -steppen  gror  der  rtOdaedende  uunter  "1  INK  2 

~  '‘fV‘  »  IKK  0!  "  TtJer  ts.ser  mennesker  eg  der  er  ogsaa  Zd  F  uør  t,  der  jjgter  ci .  g  h 
e- ;  *■  tiden  de  er  yg-  styret  med  KO  i  len  Det  saeider  nu  for  d>  3  at  :okke  zuluerne  . 

o  i  snte  rne  ved  at  ^e  vaeg  e  dis  saad  an  at  u  j  av<  t  e-  r  r-e  er  f  .  e  t-  mellem  d  i  s  o 

g  zuluen,  da  zuluer.  ikke  kar.  se  Pienterr-e  gaar  Kan  hen  imod  dia  os  ryger  ,  o  an 

ten.  ,p 

2903  PRINT  1  ,p  Du  styrer  manden  rundt  Daa  sk  aer  men  ved  at  raar  2  X -er  er, 

r  ser  '  nv  l  i  ken  ro  tn  ir,  s  ? '  svarer  du  med  n,  s/0,  /,  nC,  nvi  sO  e3 

:er  sv  (nord, syd, Ost, vest , nor dOst,  no rdvest, s/dOst , sy dvest >  os 


C.  B  " 


9997  I 


s  i  g  hen 

Pda 

det 

Onskede  sted  (for 

at  kJ  a 

e  i 

peciem  der  ,  Kke 

kan  r,  u 

hovedet 

har 

jeg  sk 

r  evet 

dem  ude  . 

sider n 

e . 

"  1  ",  pp  ne  -  d  os  9 

ykke’47  , 

i,o;  PA 

PER 

(RND+71 

i  INK 

Oi"Tryk  paa 

en  tas 

!* 

u 

for  at  starte" 

,4  44  ^HEiv 

30 

TQ  9504 

rI9EE;  RJN 

9399  SAVE  "ZULU1 er"  ^INI  3900:  30  ^0  9339 
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I  dette  spil  til  1 6/48K  Spectrum, 
skal  du  lokke  nogle  blinde 
udyr  ned  i  et  krater,  hvor  de 
vil  omkomme. 

Men  pas  på,  tor  deres  lugte¬ 
sans  er  meget  god,  og  kan 
betyde  døden  tor  dig. 
Programmet  er  i  øvrigt  selvfor¬ 
klarende.  □ 

Christian  Bømler 


3,75kr. 


\ 


750  kr. 


15f00kr.  18,75kr.  22,50 


30,00  Kr. 

3375kr. 

8 

9 

□  es  h  h  nPP 

QWLPJ  ■ 

m o □ b Rmm a 


B  ri' 


Qi  r< 


am  □ 


BjiBD 

Ib  n 


n  oiqIb  dIMb  d 

b  Kiam  aiaiB  a 

kMe  i 


Ih  bibim  en 
►3;b;e  n|a|r<  uslV 

BE  nfaki  .Mai 

mmt<  nIi*lE  amm  oi^ib  t:mm  oli  mam  mniR  niESE 


b  nam 
BnlafB 
DjB  dIbIb 
b  b  n|Q|B 


b  mam 


ijiam  kibie  nma  a 


(Muwvwwwv 


i g  n  olsslø  al 

■b  nif 
_ E  SIS 


f^BjB  □  Q  B  n  0:H  glBlB  afBfE 

O  □  B  dTq  Fb 


d  oiraE  a 

■■PI  vwv. 

IB  DS^iB  al 


ID 

[b  dIePb  n 


vsrvwwvmw 


B  DIB 


►3;!B  D 

KV-'H 


man  el  a  s  kb; 


DiB 


BUB; 


B  KjBtB  OialB  BjBjB  O I  BIE  OlB 

IM  /AvftVMWr1  wa\\w 


;E  H  B  B  n|B|E  QBE  EUBj 
IB  BTbTb  d-bTb  a|B|B  ia^B 
|S  dTbIE  D'BiB  DlBIB  DiBiB 


Supertips 


■  Skal  man  lave  reklame  tor 
sit  tipsprogram,  er  det  bedste 
nok  at  fremvise  håndtaste  re¬ 
sultater,  Og  jeg  har  faktisk 
vundet  en  1 2  rer  ved  hjælp  al 
programmet! 


Inden  du  starter  programmet, 
skal  du  tørst  finde  de  ti  største 
dagblades  prognoser,  for  de 
tasies  ind  i  programmets  start. 
Held  og  iykkelO 

Hans -Erik  Larsen 


■  *  *  •  IV  FP  (T  V  II  1  * 


i  SOUND  10,  10000 
5  BEEP 
10  CLS 

20  PRINT  AT  3,  10  ?  "t  I  rawJ|  ; 

AT  7 . 2  ?  "Onskeflduli nst  rukt i orner  lo 
/n" 

30  IF  INKEYS55”  J"  THEN  GOTO  300 
40  IF  INKEY*="NH  THEN  GOTO  60 
50  GOTO  30 
60  CLS 

70  PRINT  “raekk*lno.|lB2|3|4B31 

bmwBmmo* 

80  FOR  A=l  TO  13 

es  PRINT  AT  A+1,0T "kampInQ.  "  ?A 
SO  DI  M,  K C 3) 

100  FDR  B-I  T03 

i02  IF  B=  1  THEN  PRINT  AT  21,  6 ;  11  ind 
tastloddslforl11  l"1' 

104  IF  B-2  THEN  PRINT  AT  21 >61" ind 
tast  »odd  s  »forr  X"" 

106  IF  B=3  THEN  PRINT  AT  21,  6i31  ind 
tast  ■oddsB’f  C.rIlf2BI< 

110  INPUT  K(EO 

120  IF  K E 0 > ) 10  OR  K(B>(0  THEN  GOT 
D  BOO 
130  NEXT  & 

I40K (1>®K< I )  +  2 
1  SOK ( 2  > -K  <  2) +2 
1 60K  (3 )  -K  C  3)  +  2 

170  IF  KCl)+KC2i+KC3>  O  16  ThEN  G 
OTO  700 

180  FDR  8=11  T023  STEP2 
1S0C-INT  <  RND*  161+1 

210  IF  C <  =  K (1 >  THEN  PRINT  AT  A+1,B 

m  M  J  fl 

220  IF  C)  K  ED  AND  C('16-K<3)  THEN 
PRINT  AT  A+i , b\ "X" 

230  IF  C> K(1>+KC2>  AND  C  <  =  16  THEN 
PRINT  AT  fl+1 »  Bl “S" 

240  NEXT  B 
260  FOR  fl=l  TD6 

270  PRINT  AT  1 9,  1 ; " . ndtastloddslf 
o  rir,  aeste  «k  awp" 

275  S0UND  10»  500 
230  PAUSE  3 

290  PRINT  AT  18,  1 ? " I NDTA3T  ODDS  F 
OR  N HESTE  KAMR " 

235  SO  UND  20,  500 
300  PAySE  2 
310  NEXT  B 
315  PRINT  AT  19,  1  ?  11 


320  NEXT  A 

325  PRINT  AT  20* Qi " 

II 

327  PQKE  1 641  S, G 

330  PRINT  AT  21 , 2 ;  H t aat»c.  Iforlsii 
d  rtLifc-ri  Bk  upori 11 

340  PRINT  AT  23»  6 ?  “tast*s.  Bf rfct 


345  P0KE  16418,2 

350  IF  INKEV$-,lSrt  THEN  STOP 

360  IF  INKEY*=MGn  THEN  GOTO  60 

370  GOTO  350 

700  SO UND  10,  10000 

710  PRINT  AT  13,  0?  "d  i  neB:>ddsler 

lov!  Lfla.  WllWI-t  ,  ncgea«  l^ijagr. 

kalBvaereli  i^HOJ" 

720  PAUSE  200 

730  PRINT  AT  13, 0? " 


740  GOTO  90 
SOO  S0UND  10, 10000 
Si  O  PRINT  AT  20,0!" 
SU fria H .  S10,  lm  i  n,  BOB" 
320  PAUSE  200 
330  PRINT  AT  20,  0 1 11 


ov  1  i  Sijdd5, 


840  GOTO  110 
300  CLS 

9IO  PRINT  "li  nst  ru 
P5-sy4teM|"  5  AT  3,0? 
stemlk  veside  r  MS 
expe*  rt^t  ips"  Bsammen 
r  de  i  i  rvse  ripaalh^n-H 
x ,  tsK, 

1  m221  Hl ■^■5/3/2,  mm 

koHb  i  nereBd  i  sseMI 
et  I  i  i 

ntlnL  harceif  orlHi 
ver  raske  I  s^rfli  l?riH 
he  i  st|K  affipfee  \  vMoml 
/Ole  i  lérBenBhv  i  tuen 
mb  i  nat  \ 

920  POKE  16418,0 
930  PRINT  AT  23,2? 
R  DU  ER  KLAR" 

940  POKE  16418,2 
950  IF  INKEYiO"" 
960  GOTO  950 
1000  SAVE  11  TI Ps" 
1010  RUN 


POKE  16418,2 


kt  \  oner  ■t  i  \m  i 
"  it  i  tfctettefey 
llOlav  i  s&rsaM 
Bi  a^ielteanfo 

■hO  IdSVi  S|1  *  I 

C  f «  eks.  III 1  * 
Ij&sIv  i  l  Isaal 
I"  odds M  Ids  I  i  n 
Pt  i  t  |20|proce 
|uf  or  udset  *|o 
|hV i  i  kenlsoml 
I"  OddS,r=ll  0/0 
|som|h$  i  stlki? 


"TAST  ENTER  NAP 


THEN  GOTO  60 
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■  De  onde  Aliens  skal  be¬ 
kæmpes  ved,  at  dine  for¬ 
svarsmissiler  skal  rammemå- 
let  alle  sammen,  da  forbiere 
giver  dig  minuspoints, 

Når  du  har  fået  tilstrækkeligt 
med  points,  bliver  du  forfrem- 
met  til  'Commander  oi  star¬ 
lighters”.  Du  får  tildelt  endnu 
et  rumskib,  som  du  skal  besty¬ 
re,  hvilket  er  meget  vanske¬ 
ligt.  □ 

Claus  Henrik  Bjerre 


1  REM  ********************** 

*ClflUS  HENRIK  BJERRE*  ******* 

ODDER**********  *************** 

*******  H=a  C=c  D=d 

2  GO  SUB  9000 

3  LET 

5  PHPER  0:  BORDER  1:  !  NK  7  ■  CLS  :  LET 
tyk  =0 

B  LET  tyk=tyk+l:  lET  ned=INT  CRND*160 
):  LET  l an 9 "I NT  CRND*23ø);  PLOT  Un$,n*d 

B  IF  l yk >- 1 00  THEN  GO  TØ  1 1 

10  GO  TO  8 

11  PRINT  HT  0,0;'' 

''  :  PRINT  ttø ;  INK  2  T 

12  PRINT  HT  1,0;  ODER  lj  INK  4 ; " 

li 

13  PRINT  HT  2,5;  BRIGHT  1;  INK  6r<r;H 
T  2,7i"d1’;HT  2,9;"dkh;HT  2,  1 1  ;  J'd  "  ;HT  2,33 
S  'cT  iHT  2 ,  1  5  ; "  el "  JHT  2,  1 7  ; 6 ’1  ;HT  2,13i  ‘ld" 
;aT  2,21  ;  !'d  "  ;HT  2,23;MdM 

14  FOR  1=3  TO  21;  PRINT  HT  f, 28  ;  INK  4 
i"  " :  NEXT  I 

20  LET  escape=0;  LET  h=2l •  LET  o™] ;  l£ 
T  esape^Ø;  LET  a  =  ]0;  LET  I »3 :  LET  j=-lø; 
lET  b--]  ;  LET  e-ø;  lET  ty=5:  LET  a$=k’  a 
"  :  LET  b$="  a" 

48  LET  c=JNT  tRN0*13+5):  LET  y= INI  CRN 
0*13+5 J 


93  PRINT  HT  21 )4;"  bb  " 

100  LET  a^a+EINKEYS^'B"  HND  a<22J“(lNKE 
Y$~tr?"  HND  aMD 

101  BEEP  .002,5 

107  LET  J=J  + 1 

108  IF  J>=26  THEN  PRINT  HT  y,  26;” 
lET  e  s  e  ap®  s  ape  + 1  :  LET  J  =  1 :  GØ  TO  4800 

1@3  PRINT  HT  y , j  ;  INK  6;a$ 
llø  PRINT  HT  c, b;  INK  6;b$:  INK  7 
111  LET  b  =b  + 1  i  IF  b  =26  THEN  PRINT  HT  c 
, 26  ;  *  LET  b 1 ;  LET  e  s  c  ap  e  =  e  s  c  ap  e  + 1  : 

60  TO  4600 
J 12  LET  ty-ty-] 

113  IF  Y=C  THEN  LET  Y-Y+l 

115  IF  l=ø  THEN  GO  TØ  6000 

116  IF  H$  =  ,k  a  "  HND  S>=300  THEN  GO  SUB 
3400 

117  IF  h  =3  THEN  FOR  f=3  TO  21=  PRINT  H 
T  f , 29 " :  BEEP  , 1 , I  i  NEXT  f;  LET  h=2 
1 :  GØ  SUB  5200 

120  IF  1 NKE Y$= " 0 "  HND  ty<=0  THEN  GO  TO 
Iløø 

144  IF  s>=hs  THEN  LET  hs“® 

180  IF  s>=30ø  HND  o =25  THEN  GO  TO  3000 
180  IF  s >-3øø  HND  0-75  THEN  GO  TO  4000 

200  IF  n=100  THEN  GO  TØ  4000 

201  IF  o=50  THEN  GO  TO  3øøø 
993  LET  o=o+l 

1000  GO  TO  50 

1100  PRINT  HT  2 1  ,  a  ; rk  bb  LET  e-1  :  INK 
6:  PLOT  a*8+12,9:  DRHW  0,135:  PLOT  a*8+2 
0,9:  DRHW  0,135:  :  BEEP  .01,20:  BEEP  .01, 
dø:  PRINT  HT  c,b  ;b* 

1101  LET  i y-5 

1102  IF  a=b  OR  a+l=b  OR  a“j  OR  a+l=j  HND 
e  =  1  THEN  GØ  SUB  2200 

1103  PLOT  OUER  lJa*S+l2,8:  DRHW  OUER  1 
;ø, 135:  LET  e-0:  PLOT  OUER  1 54*8+20,9: 
□RHW  OUER  1 ;0, 135 

1105  INK  7 
2000  GO  TO  50 

2200  JF  a=b  ØR  a+l=o  THEN  PRINT  HT  c, bi 

INK  5  i "  *"  :  LET  b=-l  :  lET  $=®  +  10;  PRINT 
HT  c,ø;"  1  :  IF 

s >  =300  THEN  LET  s=s+10 

2201  IF  a=j  OR  a+l=j  THEN  PRINT  HT  y,j; 
"  *"  :  LET  ®=®  +  10:  LET  J=ø:  PRINT  HT  y,ø; 

11  i  IF  s >=3øø  THEN 

LET  ®=®+lø 

2202  FOR  f  =  ]  TO  10:  BORDER  J:  BORDER  2: 
BORDER  5 :  BORDER  0:  BORDER  4:  BORDER  3: 
DEEP  ,01,5:  BORDER  6:  NEXT  f:  BORDER  ]: 
BEEP  .1,10 

2208  PLOT  a*8+l2,8:  DRHW  0,135:  LET  e=ø : 

PLOT  a*8+20 , S  :  DRHU  øs135 
2208  PRINT  HT  0,0; k1  SCORE  =  "  ;*$  ;HT  ø,ll;siL  1 
UES-n;l ;ht  ø,2ø;"HJ=" ;hS ";w$ 

2210  RETURN 

3øøø  PRINT  HT  21,  a  i "  bb  11  :  FOR  9=3  TO  2] 

■*  PRINT  HT  9>S;r  !k  ;HT  g  ,  9  i  "  !  "  ;HJ  9,13;  U 
"  ;HT  9 }  17 J"  I  "  i  HT  9,21  J"  :  ,H  :  NEXT  9 
3001  FOR  9  “3  TO  21  :  PRINT  HT  g ,  5  J1'  11  ;HT 
9,9;m  ";ht  9 , 13 ;i:  ,k;HT  g,37r‘  ";at  9,21; 
,L  "  :  NEXT  9  :  L£T  o=o  +  l 

3007  IF  5=a+l  OR  8-a+l  OR  13=a +1  OR  17=a 
+  1  OR  2 1  =  a  + 1  THEN  GO  SUB  5000 

3008  IF  5=a+2  OR  9=4+2  OR  13=a+2  OR  J7=a 
+  2  OR  2 1  =  a  +  2  THEN  GO  SUB  5000 

3100  GO  TO  50 

3400  FOR  I=ø  TO  3:  BEEP  ,1,10;  BEEP  ,1,1 
0:  BEEP  .1,10:  BEEP  .1,0:  NEXT  I 
3410  LET  a$="  c  "  :  LET  b$  =  M  c”:  lET  s=s  + 
10:  LET  6  =  1  +  1 
3500  RETURN 

4000  PRINT  HT  21 ,a;"  bo  " :  FOR  9=3  TO  2] 
:  PRINT  HT  9,7;'r";8T  9  *  1  1  r  !  ,k  ;HT  9,  15  i 
=  ,f;HT  9,38rJ:";HT  9, 23  ri"  :  NEXT  9  :  IF  O 
>=300  THEN  LET  0=0 

4003  FOR  9=3  TO  21;  PRINT  HT  9 , 7  i lf  "  iHJ 
9,11;"  "  ;HT  9,15;"  ;ht  9,19;"  p,;ht  9,2 
3;"  1  :  NEXT  9  :  LET  o=0 

4007  IF  7=a+ I  OR  ll=a+]  OR  1 5=a+l  OR  19= 
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a+1  OR  23=4+1  THEN  GO  SU 8  5000 

4008  f F  7-a  +  2  OR  11=4+2  OR  15-4+2  OR  19- 

4+2  OR  23-4+2  THEN  GO  SU8  5000 

4600  FOR  1-0  TO  escape:  PR  j  NT  HT  h  ,  29  ;  8 

RIGHT  1  ;  INK  5;  F|_8SH  114$  :  NEXT  f:  LET 

h=h-l:  PRINT  HT  2,28;  FLASH  li  INK  5  ;r,t1I 

SS" 

4620  GO  10  50 
4333  GO  TO  5ø 

5000  LET  1*1-1 :  PRINT  HT  21.4+1;  PLRSH  1 
: "  bb 11 :  FOR  1  =  1  TO  5:  BEEP  ,1,  10:  BEEP  1 
.20:  BEEP  .1,-10:  NEXT  f 

5001  PRINT  HT  Øj ø 1 M SCORE-"  Is  JAT  ø,ll;"LJ 

uES=";i;HT  ø,2ør  hi="  ;hs  ;  ;w$:  go  to  5 

0 

5200  LET  1  =  1-1  :  PRINT  HT  øj  11  ;  ,:L  1 UES-"  ;  l 
;  FOR  E  =  J  TO  5:  BEEP  ,1,3:  BE  EP  ,lj-10: 
NEXT  É 
5300  RETURN 

6000  LET  y-y+l:  PRINT  HT  PRINT  H 

T  y- 1  ,  J  ; 11 

6001  JF  y=21  THEN  GO  TO  6003 

6002  GO  TO  6000 

6003  LET  c-c+1:  PRINT  HT  c,b :  PRINT  H 
T  c  - 1 ,  b  J " 

6004  1F  c  =  2 1  THEN  GO  TO  6006 

6005  GO  TO  6003 

6099  FOR  £-1  TO  .10:  PRINT  HT  10,10;  FLHS 
H  l;"GHIl£  OUER":-  BEEP  .1,10:  8EEP  .1,-1 
ø;  BEEP  ,l,-2ø:  INK  0:  ]  NK  7 '  NEXT  E 

6100  FOR  f =0  TO  21:  PRINT  ØUER  1 ;HT  f,ø 

; IF  "  :  NEX 

T  I 

6110  PRINT  HT  11 ,7;" HL  I  EN  FIK  DIG  OG"  ;HT 
1 2j  7  ; " 1NUHDEREDE  JORDEN" 

5111  IF  HS <-S  THEN  INPUT  " DU  LHOEDE  EN 
NT  HJ SCORE  ";U$:  IF  LEN  i4fc>3  THEN  GO  TO 
6111 

6112  PRINT  HT  20,0;"  ET  NYT  SPIL  ~J/N 
*  iNFQRn.M-" 

6120  IF  INKEY#=" J "  OR  lNKEY$="j,fc  THEN  G 
O  TO  5 

6121  IF  INKEY$="N"  OR  INKE Yt  - frn "  THEN  G 
O  TO  6130 

6122  IF  lNKEY$-,Fr  OR  INKEY$-"i"  THEN  P 
3PER  0:  INK  6:  CLS  :  GO  SUB  9390:  GO  TO 
5 

6129  GO  TO  6120 

6130  STOP 
3B88  GO  TO  50 
8999  STOP 

3000  FOR  n  =  0  TO  7:  REHD  &:  PQKE  USR  |r4"  + 
fi,a:  NEXT  n 

9010  OHTH  1 2 , 30*  45  j  30  j  54 , 99  j  54 , 20 
9020  FOR  n-0  TO  7=  REHD  *:  POKE  USR  "b"+ 
n , 4  :  NEXT  o 

9030  DHTH  8, 8j 42,42,28, 62, 127^54 

9040  FOR  n-0  TO  7:  REHD  a:  POKE  USR  l'cr  + 

n,*:  NEXT  n 

9050  DHIH  3 j  8 ,.  28 , 42 ,  127,20,42,85 

9060  FOR  n  =  ø  TO  7:  REHD  4:  POKE  USR  "d'  + 

n  ,  *  :  NEXT  n 

9070  DHTH  255,255, 127, 62, 2Bj8>8,ø 
9989  LET  hs=0 

9390  PRINT  HT  3,1;  "I  DETTE  SPIL  SK HL  DU 
BEKHENPE  DE  ONDE  FLYDENDE  HL  I  EN  OG,  DU 
riHH  IKKE  RHMnE  UED  SIDEN  HF  FOR  SHH 2  N 
AHR  DU  NHHR  ET  UIST  PO [ NT-THL  FHHR  DU  ET 
EXTRH  RunSKlB  HEN  SHH  BLIDER  DET  OGSHH 
SUHERE  HT  UNSLIPPE  HYPERSPHCE  LH2ERNE 
GOD  FORNØJELSE 

trSTER : 
7  8 

0  <  >  A 
9991  PRINT  HT  21,10,  EN  TRST":  FOR  K  =  1  T 
0  10:  BEEP  . 02, K:  BEEP  .05,30:  BEEP  ,32, 
K:  BEEP  .05,28:  BEEP  , 02,K=  BEEP  .05,29: 

BEEP  .92jK:  BEEP  .05,27:  NEXT  K:  IF  INK 
ET$-"  then  GO  TO  9931 
9337  RETURN 

9998  SHUE  1  OUT  HUENS1'  LINE  9999 

9999  PRINT  HT  10,10;  FLASH  J;  STOP  BHHNp 
ET":  PHUSE  ?00 :  CLS  RUN 
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Spectrum 


■  Deile  Spectmm-prøgram 
udregner  Volt,  Ampere, 
Ohm,  Effekt,  hvis  du  bare  ind¬ 
taster  to  af  faktorerne.  Enten 

,fy,  f  1 "p" 

De  ukendte  faktorer  indtastes 
som  0.  Et  effektfuldt  prog¬ 
ram  !□ 

Hugo  Pedersen 


O-il  Æ- 


HCT 

TI 


1  REM  Hhp" 

i  PRINT  RT  aø,*./1®  OZ  1 I X©  HUG 
O  PEDERSEN" 

3  PRIMT  RT  1,3; “DETTE  PROGRAM 
KRN  UDREGNE,  VOLT '  ‘ fiUPERE 

'  " OHM '  EFFEKT' . PEN  ENESTE  EET I 

NGEL5E  ER  ,  AT  DU  KENDER  TO  OP  F  S 

ktorerne , " 

4.  PRINT  RT  6,6;  “DL!  INDTASTER 
,J,  -R  qG  MASKINEN  udre 

ONER  DE  TO  UKENDTE  TAL  FOR  O TG *  “ 
5  FLASH  1:  INVERSE  1:  PRINT  A 
T  11, 0,  “DE.  UKENDTE  SKAL  TASTES  1 
NO  5QM  ø“:  FLASH  G  INVERSE  O 
9  PAUSE  5©© 

ID  CLS 
11  BORDER  4 
13  INK  3 

15  CIRCLE  133 , 133,34 
3ø  PLOT  147,130 
30  DRRU  -47 , O 
4ø  PLOT  134,133 
30  DR AU  ø,-47 

7©  INK  S:  PRINT  AT  3,,  14;  "E":  P 
PINT  AT  3,16:  "I1-:  PRINT  RT  5,14.; 
■R" :  PRINT  AT  5.16; "P":  INK  0 

60  INVERSE  i  PRXMT  AT  0,3;  "DE 
UBEKENDTE  KALDER  DU  '0'":  FLASH 
O :  INVERSE  0 

90  INK  1  :  PRINT  AT  16,1,  "INDTfi 

iT  -  ?  E> 

'  95  INK  2;  FLASH  1:  PRINT  AT  3, 
14, "E“:  FLASH  O :  INK  1 
løø  INPUT  e 
101  PRINT  AT  3, 14;  “E" 

140  PRINT  RT  16, 1; " INDTAST  Ir' 
14^  INK  2:  FLASH  1:  PRINT  AT  -3, 
16; “T“:  FLASH  ©  i  XNK  1 

160  INPUT  i 
151  PRINT  AT  3, 15; "I" 

190  PRINT  AT  16, 1; “INDTAST  FRH" 
195  INK  2:  FLASH  I;  PRINT  AT  S , 
14,MR“:  FLASH  Q:  INK  1 
20ø  INPUT  r 
201  PRINT  AT  5,14; "R" 

S40  PRINT  AT  16 , 1; “INDTAST  r P 
24?  INK  FLASH  1-  PRINT  AT  5, 

1E;  l,P“:  FLASH  ©;  XNK  1 
PSø  INPUT  R 
251  PRINT  AT  5,16; “P“ 

262  INK  0 

255  PRINT  AT  16,1;“ 

256  PRINT  AT  10,1;“ 

fa  ■ 

p?|0THeNeGO  TO  "LÅS0  **  r>®  m*> 

p5øeT^N65g  ?gDes60  RND  ?;® 


IF  e,  0  RND  i  >©  AND  i‘iø  AND 
p  =0  THEN  GO  TO  700 
290  IF  e AND  i =0  AND  r:0  AND 
P *0  THEN  GO  TO  75ø 
300  IB  e >ø  AND  i -S  AND  r =0  AND 
P>ø  THEN  GO  TO  Søø 
310  IF  £ =ø  AND  i >0  AND  r -0  AND 
P >ø  THEN  GO  TO  050 


510 

PR INT  AT 

16, 4 : e ; “ 

U“:  PRINT 

AT 

19,4, 

i  ;  "  A 

h  9 

:  PRINT 

AT  20 , 4 ; r 

ri-  il 

OHM11  ■ 

PRINT 

AT  21  , 

4 ; p, “  U“ 

6  00 

LET 

e  -SOP 

<  r  -tp  )  : 

LET  i  *-S^R 

p/r 

65  0 

LET 

G  —  i  tf 

; 

LET  P  = 

r  ti  r 2 

70© 

LET 

r  =e  /i 

LET 

sti 

75© 

LET 

i  =e/r 

LET  P  = 

e  1 2  /  r 

300 

LET 

i  —  p  y  g 

■ 

LET 

e  1 2  yp 

65© 

LET 

e  =p  /•  i 

: 

LET  r  = 

p  y  i  t  s 

355 

PRINT  AT 

16,4, " 

V “ :  PRIMT 

AT 

19,4; 

i  ;  "  A 

9  li 

;  PRINT 

AT  2© , 4 : r 

■’  Ohm  “  . 

PRINT 

AT  21,4 

;p;“  G 

O  TO  860 

560  IF  i <1  THEN  GO  SU6  1000 
S7ø  IF  r  > 1000  AND  F < løøøøøø  THE 
N  GO  SUS  Hø© 

360  IF  f> løøøøøø  THEN  GO  SUB  1A 
00 

390  IF  P  > 100©  AND  P  <  1000000  THE 
M  GO  SUB  1300 

90©  IF  p> 100000©  THEN  GO  SUS  14 
øø 

950  GO  TO  ISO© 

1000  LET  i=i*1000:  PRINT  AT  19,4 
;  i  ;  FF  »A 
1025  RETURN 

1100  LET  f=f / 1000 :  PRINT  AT  20,4 
;  r  ;  "  Kohiti 
1175  RETURN 

12ø©  LET  r  =r  yløøøøø©  PRINT  AT  2 
0,4,  f  ;  "  Hghia 
1275  RETURE 

1300  LET  p  =  p / løøø ;  PRINT  AT  21,4 
,  p  ;  "  Kw 
1375  RETURN 

1400  LET  p =p y 1©©©0©ø :  PRXMT  AT  2 

1 , 4 ; p ; M  Mw 
1475  RETURN 

1530  INK  3;  FLASH  1:  PRINT  AT  IS 
,1,  "EL,,AT  19,1;  “I";  AT  20,1,“R“,A 
T  21,1,  '■Pr'  :  FLASH  0 
1510  PAUSE  9øø 
1512  INK  0 
1515  CLS 
152ø  GO  TO  10 
2©øø  INK  Øl  BORDER  7 


PRINT  AT 
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invasion 


i/i^ 

€i 


I  den  stjemeklaie  nat  angri¬ 
bes  jorden  al  horder  af  edder¬ 
kopper.  Din  opgave  er  al  sid 
angrebet  tilbage  ved  hjælp 
al  en  laserkanon  .  Edderkop¬ 
pen  der  rammes,  tvinges  til¬ 
bage.  men  angriber  straks 
igen.  Hver  eaderkop,  du 
rammer  giver  i  G  points  pb 
scoringstavlen  gralisk  adap¬ 
ter  nødvendig  ] 

Ei:k  Hougaard  & 
Michael  Andersen 


1  0  ’  a-nnm-**  ******  **  *  ►  *-*-***--*-*-*-******  *********  ***********  ' 

20  ’**  EDDERKOPPRENE  ANGR  J  BE R  AF  ERIK  HOUGAARD  **  v 

30  '**  &  MICHAEL  ANDERSEN  ** 

40  •’  **  SKREVET  I  JANUAR  1985  **  .  ’ .. 

é,0  *  **  TIL  IBM  PC  MED  FASICA  OG  GRAFIK  ADAPTER  *+■ 

00  ?**  BRUG  <4>  &  <  6  >  TIL  STYRE  KANONEN  MED  □□  <S>  *+  ^ WjÅ 

90  "**  POR  AT  SKYDE 

NUMLOO  HES 

«.  •*  ,  n, 

J30  GOTO  210 

140  LOLA TE  1,1:  PRINT  "SCORE: “ ; SCORE 

150  PLAY  "o2mbt2001  1  >c<15a.?l  4dl6cl  lc<I  1  >c<15q>14e-l  5c <  I  3b- 1  2a 1  l>ci<l5rt]  3 b-1  6q1  3f  1 
2e 

155  LGCATE  1  ,  1  : PRINT  ''SCORE:  "  :  SCORE 
160  PLAY"12>T<]  3*I3g#b>l  4T 1 6el 1 h< 

170  PLAY  ,  o2mbt2001  1  >c<  1  5*>1 4(31  6c  1  lc«l  1  >c<15g>l  4^-1  5c<  1  3b-l  2*1  1  >cK15dl  3b-I6ql  3fl 

2& 

180  PLAY  "  1  J  -f  I  4ef  1  3-f  1  4el  1 T  T  1 J  5L6AEL2EL6FGL3&-L2AL6AGL2GL6A6— >L3DL2CL6C< BL2BL6  >CD 
L3FL2E 

1  90  PL A Y  "  D2 >L 6EDL 2DL 6 DDL 2CT  1  80L 1  C  <  L  6A  >  L  4  DL 6€L  1  GC<L6B>E-L4C<  B-L2A>L  1  DL 6^'  DL  4B--I  5GL 
3FL2EL2FL3FL5EFL3FL4EL 1F 
200  END 
210  A=3 

220  RI =3. 141593: 3  TEGNE  SPRITES 
230  SCREEN  1 : KEY  CFFiCLS 
240  GQ5UB  800 

250  CIRCLE ( 160, 100) ,2, 2  r= 

260  C1RCLE  ( 160, 87) ,8,2  | 

270  LDCATE  U,l:PklNT  “ 

280  CIRCLE< 160,  93)  ,  9,  2,3.  1415927#,  .  1*3,  1415927#,  5/13 

290  CIRCLE  ( 160, 103) ,7,2  \\ 

300  CIRCLE  < 160,95) ,4, 1 ,, ,9/6  > 

310  CIRCLE  (160, 95), 4, 1,,, 15/5 

320  LOCATE  14,  10;  PRINT  "r  41  J 

330  DIN  UH (300)  tf 

340  EET  (153,91  >-(  167,  UO) ,  UH 

350  PUT  750, 50), UH 

360  GOSUB  710 

370  GCSUB  750 

380  GOTD  670 

390  GGSUD  650 

400  DIM  A (39) : FGR  1=1  TG  39: A C  I > =4: NEXTj Y»20: LI*3 
410  SCREEN  1 2  KEY  OFFjCGLOR  0,6L  TEGNE  SKÆRMBILLEDE 
420  LINE (O, ISO)- C 3 1 9, 150? , 2 
430  CLS: A*=CHR$ (1> :Z=1: G*=CHR*  U27) 

440  FOR  1=100  TG  200  STEP  2: LINE  <0, ISO) - <319, I ) , 1  i NEXT  i  FOR  1  =  180  TG  200  STEP  2 
i  L.INE  (O,  I>- (319,  ISO)  ,  1 :  NEXT 
450  CIRCLE  (240, 40) , 17, , 1 .2*PI , PI/2, 4 
460  CIRCLE  (230, 36) , 17, , 2, 9*PI/2, PI/4 
470  PA I NT (255, 40) 

480  DR A W  *'  b  mO ,  3  50r  1  Oe  3 r  30  f  1  Or  30e  1  Or  30-f  1  Or  50e30  f  30r  80D5  BL  50F  1,3“ 

490  LINE  (O, ISO) “<319, 1  BO) ,3 

500  FQR  L=0  ro  200:  FD™  I  NT  ( RND*3i  9 )  :  DF>*  I  NT  ( RND*  1 50)  :  PSET  ( FD ,  DF  )  :  NEX  T 
510  W1ND0W  SCREEN  (1,1)- <22, 23) : BO»Oi DIM  S* (74) 

520  FOR  t  = 1  TU  21: PUT (1,4), UH: NEXT 
530  FOR  I=J  TO  39: Af  I > =4: NEXT: V=20:LI=3 


H-uru  Chj  f  Pkiyw 


ud.Uyl  rilri  g  PiagtgnfwnH' 
Lidan  miditndt  lag*nm*dl* 
kon  IXke  b*<nbt]4H  cri  r*- 
daktUm  09  Mt  dtder  Ut** 
chancs  lor  at  komma  I  Wfl- 
a*i. 

A1  prnktlik*  grund«  badar  vi 
cm,  at  du  TUltdgffii  «n 
frank«  ral  r*tui*uv*r1  med  ty- 
daltg  odf  aH*Odglval». 

VI  giwlir  «  til ,  al  du  konlak- 
t*  o*.  Sand  prograrniTvarna 
tLL  ”*JI  om  Data",  SI.  Kon. 
g+nigad*  Ti,  1264  Kaban- 

huTii  X- 


Hat  pd  ’ 1  SOFT  og  "Alt  am 
Duta"  t*gar  vi  hala  tidan  «i- 
t*T  ny*  ug  »poandand*  pio- 
grrnniriar  til  9Ut  gsng» 
cemputfrtrptr.  Lig*  Haimfl 
ifnnrt*  rutinar,  ntr  tpH  Hl 
ifrlau  bnigarprogronAitt 
AU*  aftintllggjsda  pregram- 
m*r  balannat  mad  op  tU 
1000  tlmflairt  kr  onai ,  dai  ud- 
btkdti  kort  *Aar  al  bladat  ar 
udhommat. 

Indvand  dUJdirv*  program- 
m*i  pd  k««Ha&ftnd.  dl- 
ikatt*  *U*t  mliuodMv*  ag 
rtdlag  bWblvtmoggaiiM 
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PUT  C  Y,  i  9 ) , FL;  "  SELVE  SPILLET 

F-INT  (RND*21)+I;  EF  A(F)+M>20  THE  hf  A  (F)  =4r  PUT  <F,' A  (F)  )  ,  UH,  XOR:  LI^LI  -1  i  IF  LI=0 
THEN  900 

PUT  (F,  A  <F>  )  ,UH,  XOR;  A  ( F) =A ( F  >  *-li;  PUT  (F,  A  ( F)  >  .  UH*  XOR 

M— M+.  0G2:  READ  5$  (BO)  i  READ  S*  (  B0+  1  )  :  FL.AY  5$ ( UO) i  FLA Y  5*  (  PO+1)  ;  BO-BO +2:  I  F  BO- 
74  THEN  PLAY"P2Q,,:B0=0;RESTDRE 
IF  M>3  THEN  M=l*4 

LOCATE  1,1:  PR I NT" SCORE: " S  SCORE  J "LIVES: “;LI 
IF  A<F>>-ie+M  THEN  L  I=L  I-  1  S  A  ( F  >  -4:  IF  LIM)  THEN  GOTO  900 

BÆ = ENKE Yt : IF  pt="4"  AND  Y>1  THEN  PUT t Y, 19) , FLf XOR: Y=Y-1 : PUT ( Y, 19) , FL, XGR 

IF  B$="6"  AND  Y<21  THEN  PUT  ( YT  I9>  FL  ,  XOR;  Y=Y+ 1 :  PUT  (  Y,  19)  ,  FL ,  XOR 

IF  B*=lfS"  THEN  FOR  0=17  TD  A(Y>  STEP  -  I  ;  PUT  <  Y,  O)  ,  SK,  XOR  :  NÉXT  :  PUT  ( Y.  A  <  Y)  )  ,  UH 

»  XQR:  PUT  C  Y,  A  ( Y>  >  ,  UHI  P  XOR:  FOR  0=1/  TU  AtY)  STEP  “1  :  PUT  { Y, Q> ,  5t  »  XORs  NEXT  :PU'J< 

V,  A(  Y)  >  ,  UH  3  ,  XOft:  A<  Y)  =4  i  FUT  (V,  A  £  Y  >  i  ,  UH,  XDRs  SCORE=!3CORÉ+ 10 

GOTO  550 

M=1 ,5 

RETURN 

FOR  1=1  TO  30B  STEP  1 4: p TEGNE  SPRITE 
PUT  ( I , 100) , UH: U-U+l 
NÉX'T  SPRINT  I 
GOTO  390 

L I NE ( 1 O , 1 O ) - ( 1 0 , 20  > , 2 
DIM  SK (100) 

SET  (3,3)-  (11,  1&)  ,  SK. 

RETURN 

CL  S:  DR  AN  'BM160,  1 00C3R  D  DFBF  DDDD  DF  DDDDF  F  RFRRRRR  RRRUUUL  RRLUDD  DDL  L  LLLL  J..L  LLLLLLL 
Lill.  LLLLLLLL  L  LLL  L  L  L  .L..UL1U  RLLRUD  DDRRRRR  RRRRR  RRRRRRRRRRRRRRRRRRR  R  RRF 1RLL  L  L  L.  L  L  L  L  L  L 
L  L  L  L  L  DDDL  URR  Dl  1U1 J1  LL LL LURRR  R  R  R  R  RR  RL  L  L  L  L  L  L  L  L  L  L  É  UUUUE UUUUEI II  IF  Ut 1RRUUUU D  D  D  D  D  DB  DF  3 

T  dJ 

DIN  FL (400) 

SET  (152,95)-l 165, 1 1 1 > ,FL 
PU1  < 1 00 , 1 OO) , FL 
RET  LJRN 

C I RCLE f 1 60 , 1 OO) . 2, 2 

C1RCLE  (160,96) ,7, 2, 3- 1415927#, . 2*3. 1415927# 

C I RCLE  ( 160, 95> , 4, 1, , ,9/6 
CIRCLE  (160, 95) t 4, 1 , , 4 15/5 
LOCATE  14, 10: PRINT  " 

DIN  UHI  <300>- 

GET  ( 153,91  >-<167,  HQ)  ,UHi 
PUT  (50, 50), UHI 
CL  S 

RETURN :  *  SLUT  SF'  I  L 

FOR  I - 1  TG  23: LOCATE  I,I;PRINT  "GAME  OVER. NEX 1 

FOR  1=1  TD  300;  N=  r  NT  ( RND*2 1  )  +■  1  :  M=  I  NT  <RND*  LS>  +  i  :  PUf  C  N,  hl )  ,  Uf  l :  NE'  X  T 

GOTO  140 

DA  T  A  Hib  ,  o3 ,  1 255 ,  1  3,  C  ,  L4  ,  g  +  1  6 ,  i  # ,  1  3 ,  g  ,  4  y  1  2 ,  d .  1  3 ,  d ,  1.4 ,  a ,  i  6,  q# ,  J  3  ,  e ,  1  2 „  u  „  1  . ,  . 

\  4g  1  6 ,  i # ]  3g f  ,  12d.  13.*?,  1  4b. I6s#,l  3b.  1  2 >c <  ,  J  3,  a ,  1  4 ,  >C<  .  L  6 ,  R,  L3,  >C<  ,  B*I  2.F#,l 
F,L4,B,L6, A, L3, Bf Af L2, E,L3„ D, E, F, 3, L6, EF6, L3A, L6, GE .  i  S_ D,£ .  I  6?FL3GJ  2,! 


LYT  TIL 
DATAVOICE 


Hver  lørdag  kl. 
17-18  på  FM 
102,8  MHz  i 
Storkøbenhavn 


Danmarks 

hotteste 

dataradio 


Produceres  i  samarbejde 
mellem  The  Voice  og 
månedsbladet  ”Åftom  Data" 


Vigtigt  tip 

■  Vi  får  ofte  henvendelser  Ira 
læsere,  der  ikke  kan  tyde  de 
inverse  tegn  pd  Commodore 
programmer. 

1  de  fleste  tillælde  bruges  dis¬ 
se  tegn  udelukkende  til  at  far¬ 
ve  teksten  eller  printe  den 


pænere  ud  pd  skærmen.  De 
kan  derfor  ofte  undværes,  da 
de  ikke  betyder  noget  for  sel¬ 
ve  programmets  kørseL 
Bemærk  dog,  at  tegnene  in¬ 
verse  hjerter  og  inverse  S  skal 
bruges  altid, □ 


I  næsfe  nummer  ai  ’  ’Soft  ’  %  vil  samtlige  Commodore  64  ud- 
listninger  være  forsynet  med  iniormationer  i  stedet  for  et  in¬ 
verse  tegn , 


3  rang  cursor  ned* 

□  rm  cursor  op» 

3  aaa  cursor  hqjre: 
ii  mm  cursor  venstre 

m  ■■■  CTRL  1 
3  CTRL  Z 

3  mm  CTRL  3 
k  kkk  CTRL  4 


m  mm  ctrl  5 

U  tm  CTRL  s 
a  333;  CTRL  7 

El  Kl«!!  CTRL  8 

3  aaa  ctrl  s 

■  —  CTRL  O* 
a  rTTl  COMMODORE  1 

R  m  COMMODORE  S 


o  gno  COMMODORE  3 
H  ISIBIS]  COMMODORE  4 

a  COMMODORE  5 

«  Ml  COMMODORE  8 
U  rrxi  COMMODORE  7 
■!  SK  COMMODORE  8 
ii  LUi  CLR  TftSTEN 
3  g«  HOME  THSTEN 
II  UH  I  NST  TftSTEN 


■  mi  F5 

U  H  FB 


II  lli  F7 

m  IH  F3 


Hej  p6  ^SOFT'’  og  p>ALt  om 
Dcria”  sager  vi  hele  liden  ef¬ 
ter  iiYe  og  spændende  pro¬ 
grammer  til  alle  gængse 
computertyper.  Lige  lia  små 
smarte  rutiner,  over  spil  til 
seriøse  brugerprogrammer. 
Alle  offentliggjorte  program¬ 
mer  belønnes  med  op  fil 
1  ODO  skattefri  kroner ,  der  ud¬ 
betales  kort  etter  at  bladet  er 
udkammeL 

Indsend  dit/ dine  program¬ 
mer  på  kassettebånd,  di¬ 
skette  eller  mikrodrlve  og 
vedlæg  beskrivelse  og  geme 
udllstning.  Programmer 
uden  medsendt  Lagermedie 
kan  ikke  bearbejdes  af  re¬ 
daktion  og  får  derfor  Ikke 
chance  tor  at  komme  i  bla¬ 
det. 

Af  praktiske  grunde  beder  vi 
om,  at  du  vedlægger  en 
frankerel  returkuvert  med  ty¬ 
delig  adresseangivelse. 
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pr,  \ 

jj  w-w  •  ♦  »Jffr  jm  41  I 

||  f=3^  £wrnp¥l»W  j»  ^  v  *.*i?,i 


:  1308  IF  p-200  OR  p  =400  THEN  GO  TO  3000 

i  1310  IF  INKETS-1'*"  then  GO  TO  3  1 00 

S  1320  IF  INKEY$  =  'V  THEN  GO  TO  1000 

?  1 330  IF  I NK£Y$- '  1"  THEN  60  TO  1200 

r  1340  LET  y=y- 1 

1345  IF  POINT  Uy*83+3,  173-tx*8;n  =  l  THEN 
GO  TO  2000 

1350  PRINT  INK  2;AT  x3  y  i  h" 

1360  GO  TO  1300 

■  2000  PRINT  INK  5j  FLASH  1  ;AT  20,  1  I  r'GAM 
E  DUER"1' 

/  2100  FOR  n  =  15  TO  -3ø  STEf^  “3:  BEEP  ,ltn; 
f  NEXT  n 

2500  FOR  n - 1  TO  200;  NEXT  0 

2505  IF  I NKETÆ <> 11  hf  THEN  GO  TO  2600 

2510  GO  TØ  2505 

26øø  IF  h s  <p  THEN  GO  TO  2700 

2610  CL S  :  INK  4 

2620  PRINT  "REKORDEN  ER  ":hs 

2630  PRINT  :  PRINT  "DEN  BLEU  SAT'1  ;  '  PRIN 

T  AT  3,0;  "d.  jd*i‘  al  "Jn$ 

2640  PAUSE  0 
2650  GØ  TØ  11 
'  2700  CL S  :  INK  4 

2710  PRIN1  "Tillykke,  Du  har  sat  ny 
rd.  Indtast  ven  li  9$ i  dit  navn,  i‘  INPUT 
n  S 

^  2720  PRINT  :  PRINT  ‘‘Hvilken  dato  ?"  :  3  NP 
"  UT  d  $ 

2725  LET  ns=p 

2730  GO  TO  2610 

3000  CL S  :  lET  a-a+15 

3005  FOR  n-0  TO  63=  SEER  *0005, n:  NEXT  n 
3010  PRINT  "Godt  klaret-  Bu  er  kommet  fr 
em  til  n  ae  s  t  e  trin. 


■  Dit  rumskib  løber  løbsk.  Du 
kan  ikke  standse  det.  men  du 
må  undvige  stenspøgelserne 
sd  længe  som  muligt.  Det  er 
essensen  i  dette  Spectrum  1 6K 
spil. 

Sværhedsgraden  stiger  auto¬ 
matisk  tor  hver  200  points.  Ret¬ 
ningerne  op.  ned.  venstre  og 
højre  styres  med  knapperne 
O.  A.  K  ogL. 

Thomas  Siiøe 

ø>REN  PRO GR AH NET  ER  LAU£T  AF  THO 
MAS  STRØE  CHARLOTTENLUNO 
2  GO  SLIB  6000 
11  LET  p  =0  -  u£T  a-3ø 
2ø  BORDER  ø ’  RAPER  0;  CLS 
30  FOR  n  =*  1  10  a 

^0  PRINT  INK  4  ; AT  tRND# 1 7)  + 1 , f RN0*27T 


50  NEXT  n 

60  FOR  n=0  TO  31:  PRINT  INK  6;AT 

'  q 13  :  ^RINT  INK  6; AT  2 1 ,  n  i  q"  :  NEXT  n 

70  FOR  n  =  1  TO  21  :  PRINT  INK  6;AT  n,ø, 

hq"  :  PRINT  ink  6 ;  AT  n,3i;"q"J  NEXT  n 

80  LET  x-10;  lET  y=15 
83  PRINT  INK  3  i  AT  0, 22 ; "po int s ;ø 
85  PRINT  INK  2;AT  ø,ø;'hi^h:  1  ;hs 
30  PRINT  INK  2  JAT  xJyj,,«B 
løø  IF  ] NKET$  =  " q'1  THEN  GO  TO  Jøøø 

110  IF  I NKEY4=" a "  thEN  GO  TO  liøø 

12ø  IF  I NKETs= " l "  THEN  GO  TO  ]2øø 

130  IF  I NKET^ ="k "  THEN  GO  TO  1300 

1  40  PRINT  INK  0  | AT  x,  y 
150  GO  TØ  30 
1000  LET  p-p+1 
1005  PRINT  INK  3 ; AT  0, 28 jp 

1007  BEEP  , øøø7, 30 

1008  If  p  =  2øø  OR  p=400  THEN  GO  TO  3000 

1010  IF  INKETi-"a"  thEN  GO  TO  11  øø 

1020  IF  INKET*  =  ,,l"  THEN  GO  TO  1200 

1030  IF  INKEY$="k "  THEN  GO  TO  1300 

1040  LET  x — x  — 1 

1045  IF  POINT  CCy*8]+3, 173-Cx*8J]=l  THEN 
GO  TO  2øøø 

1050  PRINT  INK  2  i  AT  Xjyi>" 

1060  GO  TO  JØØØ 

1100  LET  p=p+l 

1105  PRINT  INK  3;AT  ø, 28;e 

1107  BEEP  .0007,30 

1108  IF  p  =200  OR  p *400  THEN  GO  TO  3000 

1110  IF  INKET$  =  "q"  THEN'  GO  TO  1000 

1120  IF  I NKE " t "  THEN  GO  TO  1200 

1130  IF  I NKET$= " k "  THEN  GO  TO  1300 

1140  LET  x-x^ 1 

1145  IF  POINT  CCy*B]+3, 173-Cx*831=l  THEN 
GO  TO  2000 

I  150  PRINT  INK  2, AT  x,yj"s" 

U6ø  go  io  nøø 

1200  LET  p=p+J 

1205  PRINT  INK  3  i AT  0,29jp 

1207  BEEP  ,0007,30 

1208  IF  p  =200  OR  p  =  4øø  THEN  GO  TO  3000 

1210  IF  INKEY*  =  'V  THEN  GO  TO  Jøøø 

1220  IF  INKEYa="ar  THEN  GO  TO  II Øø 

1230  IF  1NKETS- ”k "  ThEN  GO  TO  1300 

1240  LET  y=y +  1 

1245  JF  POINT  C  C y *8  J  +3 , 1 73- C  xX8  J ] - ]  THEN 
GO  TO  2000 

1250  PRINT  INK  2  ; AT  *,y  ;  j" 

1260  GO  TO  1200 
1300  LET  p=pt] 

1305  PRINT  INK  3;AT  0, 23  ;□ 

1307  BEEP  ,0007,30 


3ø2ø  FOR  n=ø  TO  200 =  NEXT  n :  GO  TO  2ø 

5030  STOP 

6000  FOR  J =0  TO  7 

6010  READ  q  : 

6020  POKE  USR  "ft'Njjq 
6030  NEXT  J 

6040  DATA  BIN  000]1000,BIN  ØøniJØØ»BlN 
øiøj i ø i ø, b j n  ømiiiø,BiN  ømme, bin  ø 
llllllø, BIN  linillLBIN  løl 0100] 

6050  FOR  J -0  TO  7 
6055  READ  q 
6060  POKE  USR  "qM*j,n 
6020  NEXT  j 

6ø8ø  DATA  BIN  øøøl Jøøø, BIN  0001!000,BIN 
øøl  1  11  øø,  BIN  11111111,  BIN  1  1 1 1 11 .11,  B 1 N  0 
ØH  Uøø,  BI  N  ØSØ 1  j  øøø  j  B 1 N  øøøl.løøø 
6030  FOR  J =0  TO  7 
6  J  øø  READ  q 
6  J 1 0  POKE  USR  "a " + j  j  q 
6120  NEXT  J 

6130  DATA  BIN  ØØØI1000*9IN  000  J.l  000,  BIN 
000 j j 000 , b i n  øømiøø,BjN  øiinnø,BJN  i 

millljBIN  0001  1000,  BIN  0001  JØØØ 

6140  FOR  J “ø  TO  7 

6150  READ  q 

6170  POKE  USR  "  s  "  +  j  ,  q 

6180  NEXT  J 

6180  DATA  BIN  00011000, BIN  0001 1008, BI N 

UllllILBIN  øll  111 10,  BIN  0 1 1 1 1 1 1 0 1 B  i  N  ø 

01.11  100,  BIN  00011000,  BIN  øøø  J.l  øøø 

6200  FOR  J=ø  TO  7 

6210  READ  q 

6220  POKE  USR  nr  +j  ,q 

6230  NEXT  j 

6240  DATA  B|N  00000100,BJN  00001 100, BIN 

øøøll  løø,  BI  N  limill.BIN  11111111, BIN  ø 

001  Iløø, BIN  øøøøll øø, BJN  øøøøøløø 

6250  FOR  j=0  TO  7 

6260  READ  q 

6270  POKE  USR  "J'  *j,q 

6280  NEXT  j 

6230  DATA  BJN  00100000, BIN  00]10000,8IN 
0011  1000,  Bl  N  11  111. 1  11,  BI  N  1N1H1],B]N  0 
0111000, BIN  00110000, BIN  00100000 
7000  RETURN 


Tegn  abonnement  på  SOFT. 


SOFT  Special  er  blevet  en  $6  stor  succes  Ira  starten,,  al 
vi  har  besluttet  at  udgive  Danmarks  eneste  program- 
blad  hver  anden  måned. 

Del  vil  sige,  at  SOFT  Special  udkommer  igen,  i  april, 
juni,  august,  oktober,  december  o. s. v. 


Hvis  du  vil  undgå,  at  SOFT  er  udsolgt  hos  din  blad¬ 
handler,  er  det  en  god  idé  at  tegne  abonnement  o 
numre  at  SOFT  Special  koster  153  kroner,  og  du  tår 
bladene  portolrit  tilsendt.  Nåede  du  ikke  at  købe  tør¬ 
ste  nummer  at  SOFT,  kan  du  bestille  bladet  på  torla¬ 
get.  Prisen  er  kr.  27,35. 


Ring  og  bestil  abonnement  på  telefon  01-11  28  33  el 
ler  indbetal  straks  kr,  1 53  på  postgirokonto  940  60  77 


Næste  nummer  af  SOFT  udkommer  den  20  Juni 


Vi  tester  de 


"ny  elektronik"  går  tæt  på  3  Hi-Fi 
kraftværker.  Hvilket  udgangstrin 
er  bedst  -  Quad  405  IL  Yamaha 
M-40  eller  Kenwood  M-l? 

Utradiotionelle  løsninger  kende¬ 
tegner  de  to  danske  højttalere  B&O 

Red  Line  40  og  Dali  6 .  Lever  lyden 
mon  op  til  de  smarte  ideer? 

En  avanceret  mini-producer  tår 
man  hjem,  når  man  køber  Sansuis 
AV-77  audio/video  processor«  Vi 

kigger  det  lille  vidunder  efter  i  søm¬ 
mene,  og  det  kom  der  meget 
spændende  ud  af. 

Solen  kryber  op  ad  himlen,  og  sæ¬ 
sonen  nænner  sig  for 1  *  asf  alt  blæ¬ 
sere’  1  -  de  store  bærbare  kassette- 
radioer.  Vores  testhold  hai  prøve¬ 
kørt  to  musikmaskinel  fra  Hitachi 
og  Sanyo 

Irriterer  bilradioens  lydstyrke?  Så 
byg '  'ny  elektroniks  smarte  auto- 


Kraftværker  til  Hi-Fi 


volumen-kontrol.  Den  justerer  selv 
anlæggets  lydstyrke  efter  støjnive¬ 
auet  i  kabinen. 

Tonekontroller  er  mange  ting.  En  af 
de  gode  er  den  paramentriske 
equalizer ,  du  kan  bygge  efter  vo¬ 
res  forskrifter . 

Optiske  laserplader  er  også  på  vej 
ind  i  data  Vi  beskriver  fremtidens 
Gigaplader  i  en  stor  reportage . 

Spiller  du  musik  selv,  -  så  laes  vores 
test  af  Juno  106  synthesizeren. 

Megen  lyd  for  færre  penge 

Masser  af  byg -selv  idder:  l/O  port 
til  Amstrad,  -  Mini  mikrofon  for¬ 
stærker  -  Lille  RI  AA  Arnp  -  kry- 
staltester. 


Køb  ,Jny  elektronik11  nummer  5 
hos  din  bladhandler  i  dag. 

Pris  kr.  21,85. 


Køb  det  nye  nummer  af 
Alt  om  Data  i  kiosken. 
Kun  kr.  21 ,85 


Du  kan  også  tegne  abonnement  på 
1 1  numre  for  kr.  218,50  på  telefon 
01-11  28  33. 


